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ABSTRACT 


The vast majority of information distributed throughout the 
Navy today is done so using various paper products in the form 
of manuals, printouts, books and other publications. Paper 
publications are inherently expensive to produce, store and 
distribute on a large scale. They are also difficult to use 
when extracting detailed information for ad hoc reports. 
Compact Disc, Read Only Memory (CD-ROM) technology provides an 
alternative means to publish and distribute information to 
large numbers of users. This thesis examines the 

capabilities, advantages and disadvantages of CD-ROM 
technology to determine whether its use would be a preferred 
strategy for fulfilling information distribution requirements 
within the Navy. The research included the development of a 
CD-ROM pre-master file which was used to test the response of 
a CD-ROM application compared to manually extracting the same 
information from a printed manual. 
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INTRODUCTION 


I. 


A. GENERAL 

Many of the datcibases used by the Navy on a day to day 
basis are distributed on paper products in the form of 
manuals, catalogs, and printouts. Therefore, extracting 
desired information requires a tedious manual look-up 
procedure. Distributing the information on paper also 
prevents the user from using automated tools to manipulate or 
retrieve specific data for ad hoc queries and/or reports. 
Only recently has technology provided an alternative means to 
publish and distribute data to large numbers of users. 

B. OBJECTIVE 

The objective of this thesis is to evaluate the 
feasibility and methodology of using CD-ROM as a medium for 
publishing and distributing large dateibases. This research 
will include the development of a CD-ROM application and the 
associated 9-track pre-master tape. Secondary objectives are 
to document; 1) what is required to convert data from an 
existing digital media and format to a CD-ROM pre-mastering 
environment, 2) what are the advantages and disadvantages of 
using CD-ROM for distributing information, 3) what costs are 
associated with the production and distribution of CD-ROMs, 
and 4) how does the cost of distributing information on CD-ROM 
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compare with the printing and shipping costs of paper 
products. 

C. RESEARCH METHODOLOGY 

The methodology involved in this research began with a 
literature review of magazines, periodicals, and books to gain 
an understanding of the technology. The equipment required to 
perform the pre-mastering process was recently acquired by the 
Naval Postgraduate School. The system used was a CD Publisher 
model 88-600 from Meridian Data, Inc. (MDI) connected to a 
Compaq Deskpro 386 microcomputer. The data used to develop 
the CD-ROM application are extracted from the Navy Officer 
Master File and the Navy Standard Address File. Both sets of 
data were provided by the Defense Manpower Data Center (DMDC). 
During the course of the research both authors attended a CD- 
ROM conference in San Francisco to gain insight from industry 
experts. 

Evaluation of the CD-ROM application was accomplished by 
timing manual searches of data from the Register of 
Commissioned and Warrant Officer of the U.S. Navy on Active 
Duty (commonly referred to as the Officer Lineal List) and 
comparing them with automated CD-ROM searches. 
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II. WHAT IS CD-ROM? 


A. BACKGROUND 

Compact Disc - Read Only Memory (CD-ROM) has the capacity 
to hold at least 680 megabytes of data. These data can 
include text files, computer prograuns, music, color images and 
animation. Disc readers are available today for most types of 
personal and business computers. 

CD-ROM evolved from CD audio technology and it uses the 
same basic drive mechanisms and disc manufacturing processes. 
CD-ROM has developed from technological advances and economies 
of scale associated with the CD audio industry. 

Another factor which expedited the development of CD-ROM 
was the adoption of industry standards, both physical and 
logical. All of the uses of Compact Disc, including CD-ROM 
and CD-I (Compact Disc Interactive), are based on CD audio 
specifications. These specifications are referred to by the 
colors of the binders in which they are published. They are: 

CD Audio (including CD Graphics) - "The Red Book" 

CD-ROM - "The Yellow Book" 

CD-I - "The Green Book 

The physical standard refers to the physical 
characteristics and specifications for CD-ROMs. It also 
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describes how data are written to a disc. A disc is 120 mm 
(4.72 inches) in dizuneter with a 15 mm hole in the center, and 
is 1.2 nun thick. The disc is made from a clear plastic called 
polycarbonate. Information is stored on a disc in the form of 
pits and flat places between pits, called lands. The pits 
and lands are laid out on a spiral track which is read outward 
from the center of the disc. The total length of the track on 
a CD-ROM is almost 3 miles. The total number of pits is 
almost 2 billion [Ref. 1] . The pits are molded into the 
plastic which is then coated with a reflective metallic layer 
and a protective lacquer leibel. In order to read information 
from a CD, a laser beam is focused on the spiral track of pits 
and the amount of light reflected back into the objective lens 
is measured. Light striking one of the pits is diffracted 
(scattered) through such a wide angle that very little finds 
its way back into the lens. When the light is focused on the 
flat land between pits, most of it is reflected back into the 
lens. Figure 2-1 illustrates the difference in reflectivity 
between the pits and lands. It is the modulated signal 
produced by the combination of reflected and diffracted light 
that represents the information stored on the disc. 

The logical standard specifies how the information on the 
disc is organized. In November 1985 members of the CD-ROM 
community met and developed a standard format for placing 
files and directories on CD-ROMs. This standard was named the 
High Sierra format and was submitted to the International 
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SOURCE: CD-ROM The New Papyrus, p 60. 

Figure 2-1. Reflectivity of Pits and Lands 

Standards Organization (ISO). ISO accepted the High Sierra 

format and adopted it as ISO 9660 [Ref. 2]. Together these 

two standards ensure that all CD-ROMs may be read on virtually 

all combinations of CD-ROM playback units and computers. 

Data are arranged on CD-ROMs in one continuous spiral. 

This is in contrast to magnetic disks which record information 

in concentric tracks, each of which holds a specified number 

of sectors. These differences require correspondingly 

different methods of operation when storing and retrieving the 
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data. The magnetic disk operates under a constant angular 
velocity (CAV) system where the disk spins at a constant rate 
but information is stored at a much lower linear density on 
the outside tracks compared to the inside. The reason for 
varying the density of the data is to compensate for the fact 
that the outer tracks of the disk pass by the reading 
mechanism much faster than the inner tracks. A CD-ROM disc 
operates under a constant linear velocity (CLV) system which 
varies the speed at which the disc spins in order to allow a 
constant linear density of the data throughout the disc. This 
approach allows for a much greater volume of information to be 
stored on the CD-ROM because the outside sectors can be as 
dense as the inner sectors. 
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III. ADVANTAGES AND DISADVANTAGES OF CD-ROM 


A. ADVANTAGES OF CD-ROM AS A STORAGE MEDIUM 
1. Storage Capacity 

A single disc can hold up to 680 megabytes of data. 
This is equivalent to about 275,000 pages of text or 1,800 
(360K) floppy disks. Table 3-1 summarizes the capacity of CD- 
ROM relative to other storage media. [Ref. 3] 

Table 3-1. SUMMARY OF CD-ROM CAPACITY EQUIVALENTS 

A SINGLE CD-ROM STORES AS MUCH INFORMATION AS: 

- 275,000 PAGES OF TEXT OR, 

- 1,800 5 1/4" FLOPPY DISKS OR, 

- 1,200 MICROFICHE CARDS OR, 

1,104 HOURS (46 DAYS) OF DATA TRANSMISSION AT 

I 1200 BAUD OR, 

1 

- 17 40-MEG HARD DRIVES OR, 

t - 10 STANDARD 9-TRACK TAPES 

Source: NPS Thesis by David Lind "Optical Laser 

Technology", p. 24, 1987. 


2. Low Cost to Mass Produce 

After a "master" has been produced, additional copies 
can be made for as little as $2.00 each. 
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3. Industry Standard Access to Data 

Because the information is stored and retrieved in 
accordance with standard formats, CD-ROMs produced by one 
manufacturer can be read by other manufacturer's drives. This 
is critical since the discs are usually mass produced and 
distributed to a large number of users with many different 
system configurations. 

4. Relatively Low Cost Equipment Needed to Read Disks 

CD-ROM drives are availadole commercially for as little 
as $400 and can be connected to standard desktop computers. 
Nine track tape drives can also be connected to desktop 
computers but typically cost more than $1,000. Other types of 
media may be inexpensive to install at the user end but cost 
much more when used to distribute data. Removable hard 
drives, for example, work well when transferring data from one 
machine to another but do not offer an economical means to 
distribute data to many users. Their capacity is also much 
less, typically only 40 megeibytes. 

5. Data are Non-volatile 

Data are pressed into the disk during the 
manufacturing process and can not be rewritten by the user. 
Consequently, data are not subject to loss or corruption due 
to user error or computer viruses after the discs are pressed. 
Data are also unaffected by environmental hazards such as 
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magnetic fields, x-rays, extreme humidity, and moderate heat. 
This is in contrast to data stored on other media which could 
be lost due to power surges or exposure to magnetic flux 
generated by electric motors, monitors, etc. 

6. Durable Mediiim 

The polycarbonate material CD-ROM discs are made out 
of is durable and can withstand much more eibuse than other 
media. Only severe damage will make a disc unreadable. 
Finger prints, dust particles and even minor scratches have no 
effect on a disc's readability because data are stored well 
beneath the surface. Consequently, users do not have to worry 
about mishandling the discs under normal working conditions. 
CD-ROM discs are also less affected by age than magnetic tape 
media. Data integrity of magnetic tape lasts approximately 2 
to 7 years. Testing indicates data integrity of CD-ROM lasts 
from 10 to 50 years. 

7 . Removable and Portable 

The discs are easily loaded and removed from their 
drives. Usually there is some type of ejection system which 
automatically pushes the disc out of the drive. This ease of 
loading/unloading makes changing discs and moving them from 
one machine to another a simple process. 
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8 . Loh Transportation Costs 

Because the discs are small and light in weight, they 
are an inexpensive medium to mail and ship. Additionally, 
because they are not susceptible to adverse environmental 
conditions or electromagnetic radiation, their packaging is 
simpler. 

9. Sin^lifias Security of Classified Material 

The small size and portability of the discs make it 
easier to secure information they contain by securing the disc 
itself. 

10. User Familiarity 

Users are not intimidated by the technology because 
they have been exposed to the saune type of discs used in the 
audio-CD music industry. Consequently, users are more 
comfortable with receiving and using CD-ROM discs than with 
other media such as 9-track tape. 

B. DISADVANTAGES OF CD-ROM AS A STORAGE MEDIUM 

1. Slow Access Speeds 

Access time to retrieve data from a CD-ROM is much 
slower than a hard disk. Figures 3-1 and 3-2 graph the access 
and data transfer rates of CD-ROM, hard drives, and floppy 
drives. Modern indexing routines have been developed to 
enhance the "look up" function on CD-ROMs. Most CD-ROM 
applications respond to user requests within 2 seconds. 
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ACCESS TIMES 



SOURCE: CtXROM Th* Nmt PR>ynn 


Figure 3-1. Relative Access Times 


DATA TRANSFER RATES 



SOURCE: Cl>flOM TTi* Mvw Plpyrm 

Figure 3-2. Relative Data Transfer Rates 
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2 . Limited Niimber of CD-ROM Readers in Place Today 

The technology is relatively new but the number of 
applications distributed on CD-ROM is growing. CD-ROM readers 
are being "pushed" to most Navy commands to support some CD- 
ROM applications which have already been developed. This 
means most users will have access to a CD-ROM reader but not 
necessarily within their own department. The number of CD-ROM 
readers distributed throughout the Navy will grow now that 
they are a line item on the DOD Desktop III contract and have 
a National Stock Number (NSN) assigned to them. 

3 . Read Only Media 

Read only was a benefit to prevent unauthorized 
alterations to the data, however, it is also a disadvantage in 
that it prevents the making of legitimate changes to the data. 
Users must wait for an update to be produced and distributed 
or use a second medium as an addendum to the CD such as floppy 
disks. 

4. Expensive Process When Dealing With Small Nxambers 

Though copies of the disc can be made for as little as 
$2.00, you must produce a large enough quantity of recover the 
initial pre-master and master development expenses. This 
expense is approximately $2,000 or more depending on the 
application. 
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IV. COST COMPARISON OF CD-ROM VERSUS PAPER 


A. SELECTION OF A SUITABLE SOURCE FILE 

One of the primary research questions for this thesis was 
to compare the cost of distributing information on CD-ROM with 
distributing the same information on paper products. To 
perform this comparison it was necessary to locate a source 
document which was being distributed on paper but also 
maintained on a magnetic medium. The magnetic medium would be 
used to input the data for the CD-ROM pre-mastering process. 
The following criteria were used to select a source document: 

Document with wide distribution requiring a large number of 
duplicate copies. 

Document of sufficient size to represent an average 
publication or manual. 

Unclassified document whose source file was readily 
available on a magnetic medivim. 

Document currently being distributed in paper form and whose 
cost of printing and shipping could be easily identified. 

The document chosen for this project was The Register of 
Commissioned and Warrant Officers of the United States Navy on 
Active Duty. This publication is about 650 pages long and is 
commonly referred to as the Officer Lineal List. 
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B. HOW THE INFORMATION IS DISTRIBUTED TODAY 


The source file for the Officer Lineal List is maintained 
by Naval Military Personnel Command (NMPC) in Washington, DC. 
The information is maintained and updated by the Total Force 
Information System Management Department (NMPC Code 16) on 
their mainframe computers. When a new edition is to be 
printed, NMPC Code 16 provides a "ceimera ready” hard copy 
print-out to the Printing Department (NMPC Code 12) . The 
Printing Department awards the print job to a contractor and 
the average number of copies made is 7,200. Most of the 
copies are turned over to Naval Publications and Forms Center 
(NPFC) in Philadelphia for distribution throughout the DOD. 
[Ref. 4] NPFC ships the publication via US mail, book rate. 

C. CURRENT PRINTING AND SHIPPING COSTS 

The printing cost to produce 7,200 copies of the Officer 
Lineal List is approximately $30,000. NPFC reported the book 
rate shipping charges were $1.95 per book for a total of 
approximately $14,000. [Ref. 5] Thus the total cost of 
printing and shipping the publication is approximately 
$44,000. 

D. COST TO PRODUCE AND SHIP ON CD-ROM 

Producing a CD-ROM is a three step process; preparing a 
pre-master, cutting the master disc, and producing copies of 
the master. For this thesis a pre-master was produced at 
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Naval Postgraduate School (NPS) using a piece of equipment 
called the CD-ROM Publisher from Meridian Data Corporation. 
Most activities will not have access to the specialized 
equipment required to prepare a pre-master and will have to 
have the job performed by an outside activity. Cutting the 
master and producing copies is usually done at a manufacturing 
activity such as 3M or Sony. The fees charged to produce a 
pre-master are approximately $500.00. These fees will vary 
depending on what format the source data are in and the type 
of medium on which it is delivered. Charges to produce a 
master disc are about $2,000. This cost will also vary 
depending on how short of a turnaround time is required. 
Tables 4-1 and 4-2 list the fees charged by the 3M company, as 
of March 1990, for pre-mastering and producing master discs. 

Table 4-1. COSTS OF PRODUCING A CD-ROM PRE-MASTER 


3M CD-ROM PRE-MASTERING FEES EFFECTIVE MARCH 1990 

SOURCE DATA MEDIA AND FORMAT 

COST 

REWRITABLE OPTICAL MEDIA, 3M STANDARD FORMAT 

$300.00 

DC6150 CARTRIDGE INPUT, 3M STANDARD FORMAT 

$500.00 

1/2" 9-TRACK TAPE INPUT, 3M STANDARD FORMAT 

« 

$700.00 


i * SURCHARGE OF $300.00 IF DATA SET EXCEEDS 1,000 FILES. 

* SURCHARGE OF $600.00 IF DATA SET EXCEEDS 10,000 FILES. 

Source: 3M Optical Recording CD-ROM Price Sheet, 

March 1990 
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Table 4-2. COSTS OF PRODUCING A CD-ROM MASTER DISC 


3M CD-ROM MASTERING FEES EFFECTIVE MARCH 1990 


TURNAROUND 
WORK DAYS 


SAME 

DAY 


1 DAY 


2 DAY 


3 DAY 


5 DAY 


10 DAY 


PRICE ($) 


4,900 


2,900 


2,400 


2,000 


1,600 


1, 400 


* PRICE BASED ON 9-TRACK TAPE INPUT IN 3M STANDARD 
FORMAT, OR DATA PRE-MASTERED BY 3M. 

Source: 3M Optical Recording CD-ROM Price Sheet, 

March 1990 


The distribution copies of the master disc cost about 
$2.00 each, depending on the quantity required. The total 
cost of producing 7,200 CD-ROMs, including the pre-master and 
master process, would be $16,900. This compares with the 
$30,000 cost of printing the 7,200 manuals. The postage fee 
to mail a CD-ROM first class is 45 cents. Multiplied by 7,200 
gives a total shipping fee for of $3,240. Thus the total cost 
to produce and ship the 7,200 CDs would be $20,140. As stated 
earlier the current cost of printing and shipping the manuals 
is approximately $44,000. Figure 4-1 graphs the relative 
expenses involved for both processes. 

As the numbers above indicate, there can be significant 
savings realized when distributing information on CD-ROM 
versus paper. These savings are multiplied many times over 
when the capacity of the disc is fully used. This project 
used 50 megabytes of storage space on the disc which has a 
capacity of 680 megabytes. This represents less than an 8 
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, CD ROM vs PRINTED MANUAL 



Figure 4-1. Cost of CD ROM vs Manuals for Officer Lineal 
List 

percent usage factor. Up to the capacity of the disc, there 
is no additional cost to include more information (ie. other 
manuals) on the same disc. Conventional paper printing and 
shipping costs would go up proportionally with increased 
volumes of material. Figure 4-2 shows the total savings which 
could be realized if the capacity of the CD-ROM were fully 
utilized. The graph assumes the same requirement of 7,200 


17 
























> 


copies but now with thirteen times the cunount of information 
to publish. The cost to print and ship the hard copy manuals 
rises to $572,520. This is 28 times the expense to produce 
and mail the saune information on CD-ROM. 


, CD ROM VS PRINTED MANUAL 



Ltgvnd 
CD ROM 
MANUALS 


Figure 4-2. Cost Comparison with Maximum Use of CD-ROM 


The figures above assxime two thirds the capacity of the 
CD-ROM disc will be dedicated to data retrieval software and 
the indexes required to ensure rapid response when accessing 
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the information. If this is not a requirement, all of the 
disc could be used for storing data and the cost savings of 
using CD-ROM versus paper would be multiplied by a factor of 
three• 

The cost of equipment used to read a CD-ROM has not been 
included in this analysis because micro-computers with CD-ROM 
readers are already being distributed to Navy commands in 
support of other CD-ROM applications. It is uncertain how 
many additional CD-ROM readers each command will require as 
more databases are distributed on CD-ROM. Because the discs 
can be changed quickly, a single CD-ROM reader can be used for 
several different applications. The number of readers 
required will be a function of the total demand from all 
applications. 
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V. DESIGN AND IMPLEMENTATION OF THE DATABASE APPLICATION 


A. DEFINITION PHASE 

1. Background of Problam Area 

Many of the databases used by the Navy on a day to day 
basis, such as the Autovon phonebook, GSA catalogs, and 
Defense Property Disposal catalogs, are distributed on paper 
products in the form of manuals, catalogs and printouts. 
Because of this, extracting desired information requires a 
tedious manual look-up procedure. Distributing the 
information via paper also prevents the user from conducting 
ad hoc inquiries of specific information or easily producing 
individualized reports. 

2. Definition of the Problem 

Two readily available but difficult to use databases 
are: Register of Commissioned and Warrant Officers of the 
U.S. Navy on Active Duty (NAVPERS 15018, NSN 0500-LP-264- 
0119), and United States Navy Supply Corps Officers Directory 
(NAVSUP PUB 365). 

Both of these dateODases are distributed annually as 
paper publications. These publications provide information 
such as name, lineal number, location, type of assignment and 
rank pertaining to U.S. Naval officers. This project 
addresses the problem of accessing, manipulating and 
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extracting information from these publications. The premise 
is that the same data, provided in an automated datad^ase 
format, will facilitate much more effective and efficient 
information access and distribution. 

3. Project Scope 

The project scope is limited to developing an 
operational database system capable of accessing the 
information contained in the two annual publications listed 
above. A "user-friendly" menu system allows authorized users 
to conduct specific searches and obtain associated reports. 
The system will support user specified queries and ad hoc 
report generation. Additions, deletions and modifications to 
the database would not be possible if this database were 
distributed on CD-ROM. The intended users of the system 
include any command with access to an IBM-compatible 
microcomputer and a CD-ROM reader who are on the distribution 
list for the current paper publications. The design and 
implementation of the database system is based upon the work 
of Dolan and Kroenke [Ref. 6]. 

B. REQUIREMENTS PHASE 

1. Data Requirements 
a. User Environment 

The Command and Officer Data Information System 
(CODIS) contains unclassified Navy officer manpower data 
provided by the Naval Military Personnel Command (NMPC) via 
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the Defense Manpower Data Center (DMDC) located in Monterey, 
California. The intent of the system is to provide quick, 
easy access to data which currently are not available or are 
available only in paper form. CODIS eliminates the tedious 
manual effort required to extract data and reports from the 
paper publications. This system is intended for use by all 
Naval officers. It is written in dBase IV for IBM and 
compatible microcomputers. 

The dBase programming language was chosen for these 

reasons: 

It is widely used for programming micro-computer database 
applications. 

It is relatively easy to use and program. 

Applications can easily be expanded or enhanced. 

Sophisticated users are not limited by the application 
program. Using dBase commands and functions, users can 
access and manipulate data in ways the developer did not 
envision. 

The Developer's Edition provides the capability to produce 
runtime versions of application programs. Runtime versions 
do not require the dBase software in order to run. 

b. Object Descriptions 

The objects in the database are: the COMMAND 

object and the OFFICER object. The COMMAND object and the 
OFFICER object are compound objects as they each contain at 
least one object property. The object diagrams are shown in 
Figures 5-1 and 5-2. 
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The OFFICER object describes all active duty U.S. 
Naval officers. Name is the key of the OFFICER object. 
Social Security Number, although a unique identifier, is not 
included in this object due to Privacy Act constraints. The 
COMMAND object is a single valued object property of the 
OFFICER object. The OFFICER object also contains fourteen 
simple properties. Appendix C describes each of these 
properties in detail. 


OFFICER 


Name 

Sex 

Rank 

Date of rank 
Lineal number 
Year group 
Designator 

Commissioning source 
Date of birth 
Reporting date 
Projected rotation date 
Subspecialty code 
Billet sequence code 
Billet title 


COMMAND 


Figure 5-1. OFFICER Object Diagram 

The COMMAND object describes all commands, 
activities and civilian companies which are assigned a Unit 
Identification Code (UIC). The property, UIC, is the key of 
the COMMAND object. The OFFICER object is a multi-valued 
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object property of the COMMAND object. The COMMAND object 
additionally contains five simple properties. Appendix C 
describes each of these properties in detail. 


COMMAND 

Unit identification code 
Name 

Type of duty 

Homeport 

Address 

OFFICER 


Figure 5-2. COMMAND Object Diagreim 
c. Methodology 

These objects were derived through a combination of 
methods. Current published reports were reviewed to determine 
most of the objects and their properties. Users (i.e. NFS 
students and some NFS faculty members) were interviewed to 
determine their data and report needs. 

The COMMT^D object and the OFFICER object and most 
of their properties were derived from current published 
reports. The OFFICER object and the remaining properties were 
also requested by interviewed users. 
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2. Application Raquiramants 
a. Data Flows/Procassas 


As the level one data flow diagram in Figure 5-3 
shows, the Defense Manpower Data Center (DMDC) provides zin 
extract of the Navy's Master Officer and Unit Identification 
Code files. This information is provided annually to DMDC by 
NMPC via magnetic tape. A copy of these files was provided by 
DMDC for this application. The information is then 
reformatted into two objects for use in the CODIS system. The 
objects created are COMMAND and OFFICER. These objects are 
stored in the CODIS database on CD-ROM for use by the 
application program modules. These modules are query and 
report generation. 

The query module allows the user to extract 
information with searches based on the key fields of each of 
the objects. These key fields are Command Unit Identification 
Code (UIC) and Officer Name (Name). 

The report generation module allows the user to 
select a specific report from a list of options. This module 
extracts information from the database as rec[uired and outputs 
reports to a screen display, printer, or disk file. 

Jb. Objact Update/Display Machanisms 

The CODIS database system consists of two major 
objects: OFFICER and COMMAND. Each of these objects contain 
subordinate single or multi-variable object properties, as 
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well as non-object properties. The update, display and 
control mechanisms for the objects are defined in Appendix D. 

The object OFFICER consists of the non-object 
properties Name, Sex, Rank, Date of Rank, Lineal Number, Year 
Group, Designator, Commissioning Source, Date of Birth, 
Reporting Date, Projected Rotation Date, Subspecialty Code, 
Billet Sequence Code and Billet Title and the object property 
COMMAND (Appendix C). The OFFICER object is restricted to 
user queries, views and displays. 
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The object COMMAND consists of the non-object 
properties Unit Identification Code, Name, Type of Duty, 
Homeport and Address and the object property OFFICER (Appendix 
C). The COMMAND object is restricted to user queries, views 
and displays. 

C. DESIGN PHASE 

1. Logical Database Design 

The CODIS database objects were transformed into a 


relational diagram as illustrated in Figure 5-4 below and 
Appendix E. 



Figure 5-4. CODIS Relation Diagram 


The COMMAND object is a compound object containing 
multi-valued occurrences of the object OFFICER in addition to 
several other descriptive properties (see Appendix E). The 
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COMMAND object contains the unique identifier UIC (Unit 
Identification Code) as its key. 

The OFFICER object is a compound object containing the 
single-valued object COMMAND in addition to several other 
descriptive properties (see Appendix E). The OFFICER object 
contains the identifier Name as its key. The OFFICER relation 
contains the foreign key^ UIC. 

Commands may have many officers but each officer is 
assigned to only one command. The relationship between 
OFFICER and COMMAND is optional-many to mandatory-one. 

2. Application Design 

a. Control Mochanism 

The CODIS datcibase system will allow authorized 
users to direct and control application processing. This will 
be accomplished using a menu-driven control mechanism. The 
menu hierarchy will guide the user through the application by 
offering only appropriate options at each particular level. 

The menu-driven control mechanism was selected 
because it offers several advantages over the alternative 
command-control mechanism. Although slower and considered 
cumbersome, the menu-driven mechanism is self-explanatory and 
easy to use. The CODIS menu system will not require the user 
to memorize any individual processing commands. Users will 


^A foreign key is an attribute that is also a key of a 
different relation. 
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follow the menu structure in order to invoke a desired 


application feature. 

An additional advantage of the menu-driven control 
mechanism will be realized in access control. This system 
will deny access to all areas of the dataO^ase outside of the 
menu structure. Users will be unable to access any data 
outside of the selected menu from the application. 

Finally, a major criticism of the menu-driven 
control mechanism has been slow processing speed. In order to 
offset this deficiency, CODIS menus are capable of proceeding 
by either one of two methods. First, the cursor may be moved 
to highlight the desired function. Pressing the "ENTER” key 
will then access the next menu or desired function. A second 
and much faster means of procession is to press the 
capitalized first letter of the desired function. This will 
immediately access the next menu or the desired application 
function. 

b . Men u Himrarchy 

The CODIS menu hierarchy and sample menus are shown 
in Figures 5-5 thru 5-7. The CODIS application menu is 
described below to clarify the menu screens, options and 
program flow. 

The action/object structuring strategy was used in 
the CODIS menu hierarchy. Users begin with a list of actions 
(see Main Menu, Figure 5-6) . Siibsequent lower level menus 
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CODIS Menu Hierarchy 



Figure 5-5. CODIS Menu Hierarchy 
allow the user to select an object on which to perform some 
desired action or function. As the user progresses, the 
application is controlled by selecting the desired processing 
option from the displayed menu. 

A detailed illustration of the CODIS Main Menu is 
shown in Figure 5-6. The Main Menu display offers the user 
several processing options. Option selection will determine 
subsequent menu displays and the dated^ase processing view. 
The Main Menu displays report options: Billets, Commands, 

Officer Data, Precedence List and Subspecialty Coded Officers. 
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Additionally, the Exit option may be selected from this menu. 
Selecting the Exit option will terminate the program. 
Selecting any of the other displayed options will access a 
query form that will request processing parameters. Upon 
completion of this form, the system will display the Output 
Menu. 


Command and Officer Data Information System 

COD IS 
Main Menu 



Figure 5-6. CODIS Main Menu 

The Output Menu will allow the user to select the 
output medium. Specific options include Screen, Printer, 
Report File, dBase IV File and ASCII File. The user may also 
elect to return to the Main Menu by selecting the Return 
option or terminate the program by selecting the Exit option. 
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Command and Officer Data Information System 

COD IS 

Output Media Selection Menu 


1 - Screen 

2 - Printer 

3 - Report File 

4 - dBase IV File 

5 - ASCII File 

R - Return to Main Menu 
X - Exit 


Send report to the screen. 


Figure 5-7. CODIS Output Media Selection Menu 
c. Mstsrializatxon 

Materialization is the physical presentation of 
data in the form of a screen or report. Each of the reports 
generated by the CODIS system requires materialization. It is 
accomplished by selecting required properties from the 
application objects OFFICER and COMMAND. 

The Billets By Navy Command report and the Billets 
By Billet Sequence Code (BSC) report are materialized by 
combining the properties Unit Identification Code, Name, Type 
of Duty and Homeport from the COMMAND object with the 
properties Billet Sequence Code and Billet Title from the 
OFFICER object. An example of each of these reports is shown 
in Figures 5-8 and 5-9. 
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BILLKTg BT BSC 


UIC 

COMMAXD 

BSC 

BILLBT TITLE 

■OKEPORT 
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Figure 5-8. Billets By BSC Report 


BILLKT» WT KXVr C OtmO M D 

nx/ 


UIC 


COMAKD 

BSC 

BILLET TITLE 

■GMEPORT 

SBORZ 

0586A 

FT 

INTCENEURLNT 

00025 

CINCUSNAVEUR P 

NORVA 

1 

0586A 

FT 

INTCENEURLNT 

04220 

MILITARY CAPAB 

NORVA 

1 

0586A 

FT 

INTCENEURLNT 

02300 

NUC STRIKE DIV 

NORVA 

1 

0586A 

FT 

INTCENEURLNT 

00015 

XO 

NORVA 

1 


Figure 5-9. Billets By Navy Conunand Report 


The Navy Conunand By Geographic Location report is 
materialized by obtaining the properties Unit Identification 
Code, Name, Type of Duty, Homeport and Zip Code from the 
COMMAND object. Figure 5-10 is an example of this report. 

The Navy Command By UIC report is materialized by 
obtaining the properties: Unit Identification Code, Name, 
Address, homeport and Type of Duty from the COMMAND object. 
An example of this report is shown in Figure 5-11, 
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NAVY COMMAND BY GEOGRAPHIC LOCATION 


CITY: KEY WEST 


UIC 


COMMAND 

SEA/ 

SHORE 

HOMEPORT 

ZIP CODE 

00213 

NAS 

KEY WEST 

1 

K WEST 

33040-5000 

44320 

NAS 

KW AIMD 

1 

K WEST 

33040-5000 

47854 

USCINCLANT JTF-4 

1 

K WEST 

33040-5000 

63425 

NCU 

KEY WEST 

1 

K WEST 

33040-5000 


Figure 5-10. Navy Command By Geographic Location Report 
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AUTOMATION COMMAND 

HOMEPORT: 

WASHDC 

WASHINGTON 

NAVY YARD BLDG 166 

SEA/SHORE: 
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WASHINGTON 

DC 

20374-1662 







Figure 5-11. Navy Command By UIC Report 


The Officer Data report is materialized by obtaining the 
properties Name, Rank, Date of Rank, Sex, Date of Birth, Year 
Group, Designator, Lineal Number, Commissioning Source, 
Reporting Date, Projected Rotation Date, Subspecialty Code, 
Billet Sequence Code and Billet Title from the OFFICER object. 
These properties are combined with the properties Unit 
Identification Code, Name, Type of Duty and Homeport from the 
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COMMAND object. An example of this report is shown in Figure 
5-12. 
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Figure 5-12. Officer Data Report 


The Precedence List report is materialized by 
obtaining the properties Lineal Number, Name, Rank, Date of 
Rank, Designator and Sex from the OFFICER object. An exeimple 


of this report is shown in Figure 5-13. 
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Figure 5-13. Precedence List Report 
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The Subspecialty Coded Officer report is also 
materialized by combining certain properties from each of the 
dateibase objects. The Name, Rank, Subspecialty Code, Billet 
Sequence Code and Billet Title properties from the OFFICER 
object are combined with the properties Unit Identification 
Code and Name from the COMMAND object. An example of this 
report is shown in Figure 5-14. 
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STR REDI SN/OP 

42553 


Figure 5-14. Subspecialty Coded Officers Report 


D. IMPLEMENTATION PHASE 

1. Dat 2 d:>ase In^lementation 

The implementation phase of this project includes the 
physical database design and the code generated to execute the 
CODIS application. A complete listing of dBase IV file 
structures is included in Appendix F. The program code is 
included in Appendix G. 
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The key field from the COMMAND file was selected as 
the primary index because it uniquely identifies each record. 
The COMMAND file was indexed using the UIC field. 

The Name field was selected as the primary index for 
the OFFICER file. Although this may not be a unique 
identifier, reality dictates its use. In addition to Privacy 
Act considerations, experience suggests most users will not be 
able to provide any other unique identifying data (ie. SSN) to 
access records other than their own. 

Normal database design practices restrict indexing to 
required fields only. However, because this database was 
designed for implementation on CD-ROM, indexes have been 
created for all fields in the database and some combinations 
of fields. 

2. Data Preparation 

The data provided by DMDC required additional 
manipulation and reformatting to move it from DMDC's files on 
the NPS mainframe computer to the target IBM-compatible micro¬ 
computer. IBM utility progreims were used to copy the data 
from DMDC's Navy Standard Address file and the Navy Officer 
Master File to temporary datasets. 

The CODIS application is intended for implementation 
on IBM-compatible micro-computers, therefore, it was necessary 
to partition the files into smaller segments for downloading 
to floppy disk. Fortran programs (written by Mr. Dennis Mar 
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of the NPS Computer Center) were used to access the datasets 
and partition them into one megabyte files. The partitioned 
datasets were then downloaded to 5 1/4 inch high-density 
floppy disks for transfer to the micro-computer. 

Two dBase IV data files were created on the target 
micro-computer's hard disk, one for the Navy Standard Address 
file (hereafter referred to as the UIC file) and one for the 
Navy Officer Master file (hereafter referred to as the Officer 
file) . Using dBase IV, data was appended to each of these 
files from the floppy disks. 

A problem was encountered upon examination of the 
Officer file. Only part of the total file could be accessed. 
Through close examination of the file, numerous end of file 
characters were detected. Further research deteirmined the 
EBCDIC to ASCII conversion process performed during the file 
download from the IBM mainframe to be the source of these 
characters. The program translated certain characters in a 
filler field as end of file characters. The solution to the 
problem was to delete all characters from the filler field in 
the temporary data set on the mainf raune. The data set was 
repartitioned, downloaded to floppy disk and appended to a new 
dBase IV Officer file. No further problems were encountered 
with either file. 
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VI. PROS AND CONS OF THS CD-ROM APPLICATION AND THE PRINTED 


MANUAL 

A. CD-ROM APPLICATION PROS 

1. Data Protttction 

The CD-ROM medium protects the data from unauthorized 
changes, user errors, computer viruses and environmental 
hazards. Once the data is mastered to the disk, it cannot be 
changed. 

2. Accaas Spaed 

A sample group of five individuals was used to compare 
the average access times for retrieving information from both 
the Lineal List manual and the CD-ROM pre-master application. 
Each person was given three tasks to accomplish: 1) find an 
officer's lineal number when given his/her name, 2) find an 
officer's name when given a lineal nxamber and 3) count the 
number of officers with a specific designator within a given 
range of lineal numbers. Each task was timed separately. The 
CD Publisher SIM program was used to simulate the response 
times of an actual CD-ROM playback unit. The CD-ROM 
application outperformed manual look-ups in every instance. 
Appendix B provides the detailed test results. See Figure 6-1 
for a graphic comparison of these results. 
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Figure 6-1. ACCESS TIME COMPARISONS 
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3. Accuracy 

Data extraction using the CODIS application is 
consistent and errorless. Using a progrcunmed set of 
procedures, data is accessed and retrieved the same way each 
time. 

4 . Availability of Raports 

The CD-ROM application provides a variety of reports 
for accessing and extracting specific information. The Lineal 
List manual requires look up of individual entries, one at a 
time. The CD-ROM application offers individual and/or group 
queries. The following reports are available: 

Lineal Numbers: individual or range 
Billets by location or Billet Sequence Code 

Commands by geographic location or Unit Identification Code 
(UIC) 

Individual officer data 

Officers with specific subspecialties. 

5. Data Memipulation/Extraction 

Because the data is stored in digital format, 
extraction and manipulation is quick and effortless. The 
CODIS application extracts information from the database and 
can produce various reports. Additional data manipulation may 
be performed by any user familiar with the dBase program. 
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6 . Standard Off-the-Shelf Software 


The dBase program has esteiblished itself as an 
unofficial standard for both government and business use. 
Having the CD-ROM dateibase in this format ensures data 
compatibility. More sophisticated users can write their own 
applications to access/manipulate the data for additional ad- 
hoc queries and reports. 

B. CD-ROM APPLICATION CONS 

1. Information Retrieval Performance 

Although the CD-ROM application outperformed manual 
searches, there was not a significant improvement, as 
expected, over a non-automated process. 

2. Hardware Requirements 

The application, as developed, requires a 
microcomputer with a hard disk drive and a CD-ROM playback 
unit. Obviously the Lineal List manual itself requires no 
additional hardware and is more portable than the equipment 
required to access the CD-ROM application. 

3. Read Only 

Because the data is pressed on the medium during the 
mastering process, it cannot be changed. This prevents making 
legitimate changes to the database. Users must wait for an 
update CD-ROM to be produced and distributed. 
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C. PROS OF THE PRINTED LINEAL LIST MANUAL 


1. Data Modification 

Interim changes can be made to the data at any time by 
writing the correct data on the page or replacing pages. It 
is not necessary to reprint the entire manual for these 
interim updates. 

2. Portability 

The Lineal List manual can be hand-carried from place 
to place. No additional equipment is required in order to 
access the data. 

D. CONS OF THE PRINTED LINEAL LIST MANUAL 

1. Durability 

Paper manuals are subject to deterioration. Pages 
tear and print fades and smudges with use and age making 
readability difficult. 

2. Accuracy 

The process of locating information in the Lineal List 
manual is error prone. The print is small and tightly spaced 
making it difficult to read. Pen and ink changes made by many 
individuals may not be correct. 

3. Data Format 

The Lineal List manual provides data in only two 
sequences: lineal number within designator and name. If data 

is needed in any other sequence or format, it must be 
extracted and manipulated manually. 
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4 . Information Retrieval Performance 


Information retrieval performance from the Lineal List 
manual is inconsistent. The speed and accuracy is totally 
dependent on the individual performing the retrieval. 
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VII. SUMMARY 


A. CONCLUSION 

CD-ROM is a preferred medium for the distribution of large 
databases to many users. It has distinct advantages over 
paper publications. 

Because of its capacity, CD-ROM technology greatly reduces 
storage and shipping costs. "An Army division's records that 
weigh more than 11 tons in paper form will fit onto only 35 
pounds of optical disks." [Ref. 7] 

The cost to print and ship hard copy manuals is 28 times 
the expense to produce and mail the scime information on CD- 
ROM. 

Distributing information on CD-ROM gives users an 
automated tool to manipulate and retrieve data. Just as word 
processors have changed the way we write, CD-ROM will 
revolutionize the way information is accessed and used. 

A barrier to wide spread acceptance and everyday use of 
CD-ROM technology has been the sophisticated equipment 
required to access information on a disc. Though a CD-ROM 
disc itself is compact and easily transported, the requirement 
for a microcomputer with a CD-ROM reader negated this 
advantage. New products just released will overcome this 
barrier. Sony Corporation recently released a handheld CD-ROM 
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reader called "Data Discman" [Ref. 8]. Similar products will 
give users even more ability to carry and access vast amounts 
of information wherever they go. 

After the hardware and software have been installed, 
producing a CD-ROM pre-master is a straight forward process 
provided the source data is stored in digital format. The 
process would be more complex if it were necessary to convert 
the source data from a paper medium. 

B. RECOMMENDATIONS 

Because CD-ROM readers are already available to most Navy 
commands, the Navy should promote the conversion of paper 
manuals to CD-ROM. Budget reductions and personnel cutbacks 
demand improved efficiency in all areas of operations. CD-ROM 
would provide a more economical and efficient method of 
publishing, distributing, and using data. 

Follow-on research should be conducted to evaluate CD-ROM 
authoring and retrieval software to identify those that best 
meet the application needs of the Navy. Most commercial CD- 
ROM databases on the market today do not use products such as 
dBase as the retrieval engine. dBase and similar products are 
not optimized for use with CD-ROM. Because a compact disc has 
one spiral track that winds from the inside of the disc to the 
outer edge, the speed of the disc's rotation varies to ensure 
the data moves past the drive's laser beeim detector at a 
constant velocity. This optimizes the density of data on the 
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disc but takes its toll in access time, which can be ten times 
as long as that of typical hard disks. CD-ROM specific 
authoring and retrieval software organizes the data in a way 
to minimize access time. It accomplishes this task by 
indexing key words, adding cross-references and dividing 
information into logical blocks to allow for efficient 
retrieval. Two commercial CD-ROM applications, Microsoft 
Bookshelf and Computer Library, were exeimined to compare the 
efficiency of dBase to other retrieval software developed 
specifically for use with CD-ROM. A direct comparison cannot 
be made between the dBase application and the commercial CD- 
ROM products because the composition of the databases is 
different. However, response rates to queries made from the 
commercial CD-ROM applications were at least twice as fast as 
responses given from the dBase application for similar 
queries. These observations indicate that using retrieval 
software products designed specifically for CD-ROM vice dBase 
could significantly enhance the application's performance. 

The Naval Postgraduate School should acquire the necessary 
equipment to produce CD-ROM discs and develop additional 
applications which demonstrate the capabilities of this 
technology. 


47 



Appendix A 


THE PRE-MASTERING PROCESS 


A. INTRODUCTION 

The purpose of this appendix is to give the reader a 
brief synopsis of the essential steps involved in producing a 
CD-ROM pre-master tape. The source for this information was 
the CD-Publisher User's Manual from Meridian Data, Inc. (MDI) , 
technical support from MDI and other readings. The overview 
presented here is intended to provide a general understanding 
of the various steps required. Though these procedures 
specifically address the use of the CD-Publisher from MDI, 
systems from other manufacturers should include similar 
functions. 

B. DESCRIPTION OF HARDWARE 

The equipment used to create the pre-master tape for this 
project was a CD Publisher model 88-600 from Meridian Data 
Inc. (MDI) and a Compaq Deskpro 386 microcomputer. The CD- 
Publisher includes a large capacity tape-and-hard-disk 
subsystem which connects with IBM PC and Macintosh host 
computers via a Small Computer Standard Interface (SCSI) bus. 
To provide the necessary interface between PC hosts and the CD 
Publisher, MDI supplies a SCSI host adapter board that fits 
into an IBM-AT sixteen bit expansion slot. The SCSI interface 
for our system was a Western Digital model WD7000. Macintosh 


48 




Appendix A 

computers do not require a separate interface because the CD 
Publisher connects to the machine's built-in SCSI interface. 
The tape subsystem consists of a 1/2 inch 9-track 100-IPS 
Industry Standard Interface tape drive with recording 
densities of 6250 BPI and 1600 BPI. The hard disk subsystem 
is expandable in increments of just over 300 MB up to 2.4 
Gigabytes in one cabinet, and up to 7.2 Gigabytes in three 
cabinets. Our model 88-600 consisted of two hard drives with 
a total capacity of 635 Megabytes. Though the CD Publisher 
may contain several physical hard drives, they function and 
are partitioned just as a single drive would be. Table 6-1 
lists the physical characteristics of the CD Publisher. 


CD Publisher Physical Characteristics 


Width: 
Height: 
Depth: 
Weight: 


22 5/32 inches 
43 1/2 inches 
30 7/8 inches 

375 to 425 pounds (uncrated) 

575 to 625 pounds (crated for air transport) 


Source: Meridian Data, Inc. CD Publisher User Manual 


Table 6-1. CD Publisher Physical Characteristics 


C. PC HOST COMPATIBILITY 

The original host microcomputer connected to the CD 
Publisher was a Zenith Z-248 IBM AT compatible. The 
installation phase was completed without a problem and the Z- 
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248 was able to transfer files to the hard drive subsystem of 
the CD Publisher. It was also able to address and read the 
files contained on the hard drive subsystem. Incompatibility 
problems surfaced when an attempt was made to execute a 
program from the CD Publisher hard drive. The Z-248 locked up 
and displayed the message "Memory Parity Error". After 
exhaustive troubleshooting and a step by step verification of 
the installation procedures, a call was made to the Meridian 
Data, Inc. technical support staff. A service engineer stated 
the "Memory Parity Error" was freguently encountered when the 
CD Publisher was connected to a microcomputer which used back¬ 
plane technology, i.e. the CPU of the system is located on an 
expansion card and plugged into the system bus just as other 
cards would be. The Z-248 uses this back-plane design and was 
therefore suspected of being incompatible with the CD 
Publisher. The service engineer stated the problem is a 
result of the PC host not being compatible with the WD7000 
SCSI interface card connecting the CD Publisher to the 
microcomputer. Meridian Data, Inc. provided a list of other 
microcomputers which have been verified as compatible or not 
compatible with the CD Publisher interface system. Table 6-2 
is a summary of that information. The incompatibility of the 
Z-248 was verified by reinstalling the CD Publisher on a 
Compaq Deskpro 386 and having the system operate correctly. 
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PC's COMPATIBLE WITH A WD7000 HOST ADAPTER 


COMPAQ 386 33 MHZ 
COMPAQ 386 25 MHZ 
COMPAQ 386 20 MHZ 
COMPAQ 286 16 MHZ 
COMPAQ 280 12 MHZ 
WYSE MODEL WY2112-01 
MYLEX 386 16 MHZ 


TEXAS MICRO 386 20 MHZ 
HP VECTRA 386 20 MHZ 
IBM AT/XT 286/386 16/20 MHZ 
OLIVETTI AT CLONE 
ACER 386 33 MHZ 
ARC 286 

PC LIMITED 386 


PC'S NOT COMPATIBLE WITH A 
WD7000 HOST ADAPTER 


DELL 386 W/ VIDEO 7 
WYSE MODEL WY2214-01 
WYSE MODEL WY2200-01 
ALTECH 386SX 


TELEVIDEO TELE386 
AST 386 33 MHZ 
HAUPAUGE 386 

JOY 386 20 MHZ W/CPU CACHE 


ALR FLEXCACHE 386 20/25 MHZ 

ZENITH Z-248 (Reported during this thesis) 


* Also other systems with certain versions of the 
Vega Video 7 board and the Orchid VGA board. 


Source: Meridian Data, Inc. 


Table 6-2. PC HOST COMPATIBILITY 


D. SYSTEM INSTALLATION 

The first step of the installation procedure is to become 
familiar with the various components of the CD Publisher, 
including the SCSI interface card which connects the system to 
the host microcomputer. A separate Installation Manual is 
supplied with the CD Publisher and includes a checklist of 
items which should have been delivered with the system. The 
Installation Manual gives a description and drawing of the 
major system components to assist with the hardware 
installation phase. Installing the SCSI host adapter was 
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straightforward and similar to installing any other sixteen 
bit expansion card. After the hardware installation was 
completed, the next step was to install the CD Publisher 
operating software. Most of the software was provided on a 9- 
track tape. Before the CD Publisher tape subsystem could be 
used, a limited number of programs and drivers were installed 
onto the microcomputer from the supplied installation floppy 
disk. An empty bootable floppy disk was used to make a copy 
of the programs and drivers found on the installation disk. 
The 9-track installation tape was made ready and loaded onto 
the tape drive subsystem. The tape drive was put on-line and 
then the microcomputer was booted from the installation floppy 
disk. The purpose of this was to load the SCSI driver so the 
micro could communicate with/operate the CD Publisher. The 
next step Was to type "INSTALL C:." This prompted the 
INSTALL.BAT program on the floppy disk to create several 
directories on the hard drive and begin copying the CD 
Publisher operating system files from the tape to the 
microcomputer• 

The final step to complete the software installation was 
to modify the AUTOEXEC.BAT and CONFIG.SYS. Table 6-3 shows 
both of these new files. The device commands in the CONFIG.SYS 
file allow the microcomputer host to address the SCSI adapter 
and MS-DOS/High Sierra partitions on the CD Publisher, 
respectively. The MSCDEX command in the AUTOEXEC.BAT file is 
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CONFIG.SYS 

IiASTDRIVE=Z 

FILES=20 

BUFFERS=20 

DEVICE=C:\MDIREL4.4\CDPUB\DRIVERS\SCSIWD70.SYS 
DEVICE=C:\MDIREL4.4\CDPUB\DRIVERS\MCDPUB.SYS 
DEVICE=C:\MDIREL4.4\CDPUB\DRIVERS\HCDPUB.SYS 

AUTOEXEC.BAT 

PATH=C:\MDIREL4.4\CDPUB; 

MSCDEX /D:MDIHSDVR 

Source: Meridian Data, Inc. CD Publisher User Manual 

Table 6--3. NEW CONFIG.SYS AND AUTOEXEC.BAT FILES 

the MS-DOS extension utility which allows the PC host to 
address High Sierra partitions on the CD Publisher as another 
drive device. 

E. HIGH SIERRA/ISO 9660 PRE-MASTER TAPE DEVELOPMENT CYCLE 

Depending on the amount of disk storage that is 
available on the CD Publisher, either of two different 
procedures can be used when making a High Sierra/ISO 9660 disc 
image (pre-master tape). The first procedure is used when the 
size of CD Publisher storage is at least twice the size of the 
disc image to be generated. The second procedure is used when 
the size of CD Publisher is less than twice the size of the 
final disc image. For example, if the user has a 600 MB CD 
Publisher, procedure 1 would be chosen to make a 200 MB disc 
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image, and procedure 2 would be chosen to make a 550 MB disc 
image. Procedure 1 is easier, quicker and more flexible to 
use, but a smaller sized CD Publisher can be used for 
procedure 2. Tables 6-4 and 6-5 outline the steps involved 
for both procedures. 


Procedure 1: CD Publisher Twice Capacity of Disc Image 

1. Partition CD Publisher hard disk, using PARTDISK, 
to make the appropriately sized MS DOS and HS or ISO 
partitions. 

2. Copy data from input medium to the MS DOS 
partition. Modify data as required. 

3. Zero partition using CDRFILL (optional). 

4. a. Initialize a HS partition with INITHS. 

or 

b. Initialize an ISO partition with INITISO. 

5. Create any need HS/ISO subdirectories with 
MDHS/MDISO (optional). 

6. Copy files from MS DOS partition to HS or ISO 
partition with COPYHS or COPYISO. 

7. Invoke Microsoft extensions. 

8. Perform simulations with SIM. 

9. Make final modifications/corrections, then retest. 

10. Run FINALHS or FINALISO to convert HS/ISO 
partitions into final format. 

11. Verify final disc image using SIM. 

12. Create pre-master tape with MASTERHS. 

Source; Meridian Data, Inc. CD Publisher User Manual 


Table 6-4. PROCEDURE 1 FOR DEVELOPING PRE-MASTER TAPE 
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It should be noted that the capacity of all CD Publishers 
can be upgraded in the field to at least 1.2 Gigabytes. 
Because procedure 1 requires double the hard disk capacity of 
the CD-ROM disc image, this is the maximum size needed to 
make a pre-master tape for a 600 MB HS/ISO CD-ROM. 

The procedures outlined refer to several utility programs 
supplied with the CD Publisher system. PARTDISK partitions 
the disk subsystem into logical mass storage units in the MS- 
DOS, High Sierra, or ISO 9660 format. Files contained in 
partitions other than MS-DOS format cannot be modified with 
standard MS-DOS functions. If performed on a disk that has 
data on it, PARTDISK destroys all of the file organization 
data on the disk subsystem by reallocating the partitions, but 
does not zero the data in any partition. CDRFILL is used to 
write a sector address at the beginning of each sector of the 
partition and fill the balance of the sector with a data test 
pattern. This is a useful security measure for over-writing 
old data to prevent its recovery. The program is only used on 
High Sierra or ISO 9660 partitions. INITHS/INITISO writes 
(initializes or reinitializes) the root High Sierra directory 
structure and associated data structures into the specified 
High Sierra partition. INITHS/INITISO must be executed prior 
to executing any other HS/ISO function on that partition. 
MDHS/MDISO makes a subdirectory (directory) in a HS/ISO 
partition. COPYHS/COPYISO copies files from a MS-DOS 
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Procedure 2: CD Publisher With Less Than Twice 
the Size of Disc Image 

1. Partition CD Publisher hard disk, with PARTDISK. 

2. Copy data from input medium to MS DOS partition. 

3. Use TBACKUP to back up the data set to tape. 

4. Repartition the CD Publisher with PARTDISK to make 
the appropriately sized HS or ISO partition. 

5. Initialize the partition with INITHS or INITISO as 
appropriate. 

6. Create any needed HS or ISO subdirectories with 
MDHS or MDISO. 

7. Restore the files from the TBACKUP tape with TRESHS 
for HS or TRESISO for ISO partitions. 

8. Invoke the Microsoft extensions. 

9. Perform simulation with SIM. 

10. Make final modifications/corrections, then retest. 
Because the MS DOS data no longer exists on disc, last 
minute changes are more difficult to make. 

a. If the file to be changed is small, it may be 
changed on the host computer's resident hard disk. 

b. If a large file must be modified, back up files to 
tape and repartition the CD Publisher back to MS DOS. 
Restore tape to disk. Make final modifications and go 
back to step 3. 

11. Run FINALHS or FINALISO to convert HS/ISO 
partitions into final format. 

12. Verify final disc image using SIM. 

13. Create pre-roaster tape with MASTERHS. 

Source: Meridian Data, Inc. CD Publisher User Manual 


Table 6-5. PROCEDURE 2 FOR DEVELOPING PRE-MASTER TAPE 
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partition to a HS/ISO partition on the CD Publisher. The 
program must be executed after INITHS/INITISO and before 
FINALHS/FINALISO. SIM is used to invoke and revoke a CD-ROM 
timing simulation. When executed, it causes the partition 
driver to respond to requests for data at the speed at which 
the CD-ROM playback unit would provide the data. This feature 
is valuable in determining the approximate performance 
characteristics the final CD-ROM will have. FINALHS/FINALISO 
transforms the extended High Sierra/ISO 9660 directory 
structures into a conventional High Sierra/ISO 9660 format. 
No further file modifications are possible after executing 
this program. SIM must be revoked prior to executing 
FINALHS/FINALISO. MASTERHS is used to generate a 9-track pre¬ 
mastering tape from a High Sierra or ISO 9660 partition. 
This is the tape which is sent to a CD-ROM mastering facility. 

There are approximately 40 more utility programs and 
several popular CD-ROM drivers also provided with the CD 
Publisher system. The programs described in the previous 
procedures are those which are essential to the pre-mastering 
process. The other programs serve useful functions in various 
unique situations. 
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CD-ROM VS PAPER MANUAL TEST RESULTS 

A. TEST PROCEDURES 

A sample group of five individuals was used to compare 
the average access times for retrieving information from both 
the Lineal List manual and the CD-ROM pre-master application. 
Each person was given three tasks to accomplish: 

1) Find an officer's lineal number given his/her name. 

2) Find an officer's name when given a lineal number. 

3) Count the number of officers with a specific 
designator within a given range of lineal numbers. 

The test data given to each subject was identical. Each task 

was timed separately. The CD Publisher SIM program was used 

to simulate the response times of an actual CD-ROM playback 

unit. 

B. TEST RESULTS 

The CD-ROM application outperformed manual look-ups in 
every instance. Test results are as shown in Tables B-1 and 
B-2. 
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TABLE B-1. PAPER MANUAL TEST RESULTS 


TEST 

SUBJECT 

FIND LINEAL # 
FOR: DANIEL, 
THOMAS E 

FIND NAME FOR; 
L006830-50 

FIND QTY OF 

DESIG; 13XX 

BTWN L006800-20 
& L006838-90 

NUMBER 1 

27 SEC 

9 MIN, 43 SEC 

3 MIN, 48 SEC 

NUMBER 2 

55 SEC 

8 MIN, 8 SEC 

5 MIN, 25 SEC 1 

NUMBER 3 

42 SEC 

8 MIN, 50 SEC 

3 MIN, 48 SEC I 

NUMBER 4 

53 SEC 

9 MIN, 22 SEC 

5 MIN, 03 SEC 

NUMBER 5 

31 SEC 

7 MIN, 36 SEC 

4 MIN, 10 SEC 

AVERAGE 

41.6 SEC 

8 MIN, 44 SEC 

4 MIN, 32 SEC 


TABLE B-2. SIMULATED CD-ROM TEST RESULTS 


TEST 

SUBJECT 

FIND LINEAL # 
FOR: DANIEL, 
THOMAS E 

FIND NAME FOR: 
L006830-50 

FIND QTY OF 

DESIG: 13xx 

BTWN L006800-20 
& L006838-90 

NUMBER 1 

39 SEC 

35 SEC 

2 MIN, 24 SEC 

NUMBER 2 

37 SEC 

33 SEC 

2 MIN, 22 SEC 

NUMBER 3 

42 SEC 

37 SEC 

2 MIN, 27 SEC 

NUMBER 4 

36 SEC 

33 SEC 

2 MIN, 24 SEC 

NUMBER 5 

39 SEC 

36 SEC 

2 MIN, 26 SEC 

AVERAGE 

38.2 SEC 

34.8 SEC 

2 MIN, 25 SEC 
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Object Definitions for CODI8 


COMMAND OBJECT 


Unit identification code; UIC 

Name; Activity-title 

Type of duty; Sea-shore-code 

Homeport; Homeport 

Address; Address 

OFFICER; OFFICER object; MV 


OFFICER OBJECT 

Name; Officer-name 

Sex; Sex 

Rank; Rank 

Date of rank; DOR 

Lineal number; Lineal-number 

Year group; Year-group 

Designator; Designator 

Commissioning source; Source-code 

Date of birth; DOB 

Reporting date; Reporting-date 

Projected rotation date; PRD 

Subspecialty code; Subspecialty-code 

Billet sequence code; BSC 

Billet title; Billet-title 

COMMAND; COMMAND object 
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Domain Definitions for CODI8 


Activity-title: 

Text 16 

Official name of a military command 

Address: 

Text 132, Mask: 

Address-line-count 
Address-line-1 
Address-1ine-2 
Address-1ine-3 
Address-line-4 
State 
Zip 

Zip-extent 

Complete mailing address 

Billet-title: 

Text 14 

Official title of a billet 


Numeric l 
Text 30 
Text 30 
Text 30 
Text 30 
Text 2 
Text 5 
Text 4 

of a military command 


BSC: 

Text 5 

Unique billet sequence code assigned to each billet 


Designator: 

Numeric 4 

General specialty category of officer 


DOB: 


Numeric 6, 
Year 
Month 
Day 


Mask: 

Numeric 

Numeric 

Numeric 


2 

2 

2 


Date of birth of officer 


DOR: 


Numeric 6, 
Year 
Month 
Day 


Mask: 

Numeric 

Numeric 

Numeric 


Date of present rank 


2 

2 

2 


Homeport: 

Text 6 

Location where a military command is stationed 


Lineal-number: 

Text 9, Mask: NNNNNN-NN, 
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where N is a number 

Unic[ue precedence number assigned to each officer 

Officer-name: 

Text 27 

Names of officers in the US Navy 


PRD: 

Numeric 6, Mask: 

Year Numeric 2 
Month Numeric 2 
Projected rotation date 


Rank: 

Text 4 

Present rank of an officer 

Reporting-date: 

Numeric 6, Mask: 

Year Numeric 2 
Month Numeric 2 
Day Numeric 2 

Date officer reported to current command 

Sea-shore-code: 

Text 1 
Type of duty 

Sex: 

Text 1 

Gender of an officer 

Source-code: 

Numeric 3 

Procurement program under which officer qualified for 
current appointment 

Siibspecialty-code: 

Text 15, Mask: 

First Text 5 
Second Text 5 
Third Text 5 

Training or experience subspecialty qualifications of 
officer 

DIG: 

Text 5 

Unique Unit Identification Code assigned to each command 
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Year-group: 

Numeric 3 

Fiscal year in which officer was commissioned an Ensign 
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Update, Display, and Control Mechanisms 

A summary of the update, display, and control mechanisms 
for each object are described below. This structure is 
defined by a single object view. 


UPDATE MECHANISMS 


Once the database is physically placed on a CD-ROM, users 
are unable to create, modify, or delete any data. All 
necessary creations, modifications, and deletions must be 
performed by NMPC to their master database. Each time a new 
CD-ROM database produced, a new copy of the data containing 
all changes must be requested from NMPC. 


DISPLAY MECHANISMS 


I. OFFICER 

A. Description: OFFICER queries will access all instances 

of the OFFICER object contained in the 
database. 


B. Source data: OFFICER containing the object COMMAND. 

C. Output: Output may take the form of user 

generated reports, system query 
responses, or exportable text files. 


D. Frequency: 


As requested. 
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II. COMMAND 

A. Description: COMMAND queries will access all instances 

of the COMMAND object contained in the 
database. 


B. Source data: COMMAND containing the object OFFICER. 


C. Output: Output may take the form of user 

generated reports, system query 
responses, or exportable text files. 

D. Frequency: As requested. 


CONTROL MECHANISMS 


Database control is accomplished by physically limiting 
access to the database, processing application limitations, 
and restricted processing via menus. 

Unauthorized modification of the database can be 
controlled by physically locating the resource on a CD-ROM and 
limiting distribution to users who are currently on the paper 
publication distribution list. This distribution can be 
further restricted to those users possessing an IBM-compatible 
microcomputer and a CD-ROM reader. 

Processing application restrictions are enforced by 
disallowing any additions, modifications, or deletions to the 
objects within the database. There are no query or view 
restrictions. 
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CODIS 


ITEM 

UIC 

ADDR_LINES 

ADDRl 

ADDR2 

ADDR3 

ADDR4 

STATE 

ZIP 

ZIP_EXT 

CONTINENT 

ST_COUNTRY 

CITY 

ADC 

SEA_SHORE 

AMC 

HOMEPORT 
ACT TITLE 


Relation Definition 


COMMAND OBJECT 


LENGTH 

TYPE 

5 

Character 

1 

Numeric 

30 

Character 

30 

Character 

30 

Character 

30 

Character 

2 

Character 

5 

Character 

4 

Character 

2 

Character 

2 

Character 

4 

Character 

1 

Character 

1 

Character 

2 

Character 

6 

Character 

16 

Character 
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CODIS Relation Definition 

OFFICER OBJECT 


ITEM 

NAME 

RANK 

LINEAL_NBR 

YEAR_GROUP 

DESIGNATOR 

SOURCE_COD 

SEX 

DOB 

SPECIALTYl 

SPECIALTY2 

SPECIALTY3 

DOR 

DATE_RPTD 

PRD 

BSC 

BILLET_TTL 

UIC 


LENGTH 

TYPE 

27 

Character 

4 

Character 

9 

Character 

3 

Character 

4 

Character 

3 

Character 

1 

Character 

6 

Character 

5 

Character 

5 

Character 

5 

Character 

6 

Character 

6 

Character 

4 

Character 

5 

Character 

14 

Character 

5 

Character 
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dBase IV File Structures 


UIC.DBF 


structure for database: UIC.DBF 
Number of data records: 13126 

Date of last update : 07/28/90 


lid 

Field Name 

Type 

Width 

Dec Index 

1 

UIC 

Character 

5 

Y 

2 

ADDR_LINES 

Numeric 

1 

Y 

3 

ADDRl 

Character 

30 

Y 

4 

ADDR2 

Character 

30 

Y 

5 

ADDR3 

Character 

30 

Y 

6 

ADDR4 

Character 

30 

Y 

7 

STATE 

Character 

2 

Y 

8 

ZIP 

Character 

5 

Y 

9 

ZIP_EXT 

Character 

4 

Y 

10 

CONTINENT 

Character 

2 

Y 

11 

ST_COUNTRY 

Character 

2 

Y 

12 

CITY 

Character 

4 

Y 

13 

ADC 

Character 

1 

Y 

14 

SEA_SH0RE 

Character 

1 

Y 

15 

AMC 

Character 

2 

Y 

16 

HOMEPORT 

Character 

6 

Y 

17 

ACT_TITLE 

Character 

16 

Y 

Total ** 


172 



68 




Appendix F 


dBase IV File Structures 

OFFICER.DBF 


Structure for database: OFFICER.DBF 
Number of data records: 72255 

Date of last update : 08/01/90 


ild 

Field Name 

Type 

Width 

Dec Index 

1 

NAME 

Character 

27 

Y 

2 

RANK 

Character 

4 

Y 

3 

LINEAL_NBR 

Character 

9 

Y 

4 

YEAR_GROUP 

Character 

3 

Y 

5 

DESIGNATOR 

Character 

4 

Y 

6 

SOURCE_COD 

Character 

3 

Y 

7 

SEX 

Character 

1 

Y 

8 

DOB 

Character 

6 

Y 

9 

SPECIALTYl 

Character 

5 

Y 

10 

SPECIALTY2 

Character 

5 

Y 

11 

SPECIALTY! 

Character 

5 

Y 

12 

DOR 

Character 

6 

Y 

13 

DATE_RPTD 

Character 

6 

Y 

14 

PRD 

Character 

4 

Y 

15 

BSC 

Character 

5 

Y 

16 

ACT_CAT 

Character 

1 

Y 

17 

DT_ASGN_BL 

Character 

4 

Y 
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dBase IV File Structures 

OFFICER.DBF (continued) 


Field 

Field Nznne 

Type 

Width 

Dec Index 

18 

BILLET_TTL 

Character 

14 

Y 

19 

BSC2 

Character 

5 

Y 

20 

PDS_FROM 

Character 

4 

Y 

21 

PDS_T0 

Character 

4 

Y 

22 

ACT_TITLE 

Character 

16 

Y 

23 

TYPE_ASSIG 

Character 

1 

Y 

24 

HOMEPORT 

Character 

6 

Y 

25 

UIC 

Character 

5 

Y 

26 

SEA SHORE 

Character 

5 

Y 


** Total ** 159 
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dBase IV PROGRAM CODE 


* Program...: 

* Menu.: 

* Author....: 

* Date.: 

* 

* Menu Title; 

* SubTitle 1: 

* SubTitle 2: 

* Purpose...: 

* 


MAIM.FRG 
Main Menu 
LT Paul G. Scyoc 
09-03-1990 

Command and Officer Data Information System 

CODIS 

Main Menu 

Main program to access the CODIS database. 


* Merge Code Area 1 
LSTPGM="MAIN" 

* Set Up Working Environment 
SET TALK OFF 

SET HEADING OFF 
SET SAFETY OFF 
SET STATUS OFF 
CLEAR 

SET BELL OFF 

SET SCOREBOARD OFF 

* 


★ 

Background 

Color: 

Black 

(N) 

•k 

Foreground 

Color: 

Cyan 

(BG) 

k 

Backlight 

Color: 

Green 

(G) 

k 

LightBar 

Color: 

Cyan 

(BG) 


* 


SET COLOR TO BG/N 

* Variables will Start with the letter "A" so other variables 
in memory 

* will not be overwritten. 

* 

* Initialize User Input Variable To Zero 
AEL=0 

AENU=.T. 

* AXPl & AXP2 contain user instructions. 

AXP1=" "+CHR(24)+CHR(25)+" Change Selection " 

AXP2=" "+CHR(17)+CHR(196)+CHR(217)+" Make Selection " 

* Initialize Menu Choice Variables 
APT1='' B - Billets " 

ASGl=''Billets by UIC or BSC." 

APT2=" C - Commands " 

ASG2="Commands by geographic location or UIC." 

APT3=" O - Officer Data " 

ASG3="Data on a particular officer." 

APT4=" P - Precedence List " 

ASG4="Officers by Lineal Number." 

APT5=" S - Subspecialty Coded Officers " 
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dBase IV PROGRAM CODE 


ASG5="Officers with a particular subspecialty code." 

APT6=" X - Exit " 

ASG6="Exit to DOS" 

* Set Number Of Options 
AUMOP=6 

* Initialize Choice Indicator To #1 
ASG=1 

* Initialize Column Position and Options/Column 
ALM1= 6 

ALM2= 0 

AIDDL=40-(LEN(APT5)/2) 

AAIDDI.=40-(LEN(ASG5)/2) 

DO WHILE AENU 

* Merge Code Area 2 

* Set Up Menu Screen 

CLEAR 

§ 1,01 SAY "Main Menu" 

§ 1,70 SAY DATE() 

§ 1,18 SAY "Command and Officer Data Information System" 

§ 2,37 SAY "CODIS" 

§ 3,35 SAY "Main Menu" 

SET COLOR TO G/N 
§ 0,16 TO 4,62 DOUBLE 

* Merge Code Area 3 

§ 7,AIDDL-2 TO 8+ALMl,(AIDDL+(LEN(APT5))+1) DOUBLE 
§ ALMl+10,AAIDDL-2 TO ALMl+12,(AAIDDL+(LEN(ASG5))+1) 

* Display User Instructions/Help Window 

SET COLOR TO N/BG 
§ 22,16 SAY AXPl 
§ 22,40 SAY AXP2 
SET COLOR TO BG/N 


* Display Menu Choices 

@ 8,AIDDL SAY APTl 
@ 9,AIDDL SAY APT2 
§ 10,AIDDL SAY APT3 
§ 11,AIDDL SAY APT4 
§ 12,AIDDL SAY APT5 
§ 13,AIDDL SAY APT6 
ACHOICE=.T. 

DO WHILE ACHOICE 

* Merge Code Area 4 
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dBase IV PROGRAM CODE 


* Determine which Help To Display from the Message 

AMP="ASG"+LTRIM(STR(ASG)) 

SET COLOR TO BG/N 

@ AUMOP+ll,AAIDDL SAY SPACE(LEN(ASG5)) 

@ AUMOP+ll,AAIDDL SAY &AMP 
APT="APT"+LTRIM(STR(ASG)) 

SET COLOR TO N/BG 

@ ASG+7,AIDDL SAY &APT 
SET COLOR TO BG/N 
AEL=0 

* Keyboard Key Trapping 

DO WHILE AEL=0 

* Merge Code Area 5 

AEL= INKEY 0 
ENDDO 

@ ASG+7,AIDDL SAY &APT 

* Check If Valid Key Was Depressed 

IF CHR(AEL) $ "BbCcOoPpSsXx" 

* Merge Code Area 6 

IF CHR(AEL) $ "Bb" 

ASG= 1 
ENDIF 

IF CHR(AEL) $ "Cc" 

ASG= 2 
ENDIF 

IF CHR(AEL) $ "Oo" 

ASG= 3 
ENDIF 

IF CHR(AEL) $ "Pp" 

ASG= 4 
ENDIF 

IF CHR(AEL) $ "Ss" 

ASG= 5 
ENDIF 

IF CHR(AEL) $ "Xx" 

ASG= 6 
ENDIF 
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EXIT 

ENDIF 

* Carrage Return Depressed? 

IF AEL = 13 
EXIT 
ENDIF 

* Up Arrow Depressed? 

IF AEL = 5 
ASG=ASG-1 

IF ASG<1 
ASG=AUMOP 
ENDIF 
ENDIF 

* Down Arrow Depressed? 

IF AEL =24 
ASG=ASG+1 

IF ASG>AUMOP 
ASG=1 
ENDIF 
ENDIF 
ENDDO 

* Merge Code Area 7 

* Perform Item Selected 

DO CASE 

CASE ASG=1 
CLEAR 
DO BILLETS 

CASE ASG=2 
CLEAR 

DO COMMANDS 

CASE ASG=3 
CLEAR 

DO OFFICER 
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CASE ASG=4 
CLEAR 
DO LIN_NBR 

CASE ASG=5 
CLEAR 

DO SPECIALT 

CASE ASG=6 
CLEAR 
CLOSE ALL 
QUIT 
ENDCASE 

* Merge Code Area 8 

ENDDO 

RETURN 

* EOF: MAIN.PRG 


* Program... 

* Menu. 

* Author.... 

* Date. 

* 


RPT_MENU.PRG 
Output Menu 
LT Paul G. SCYOC 
09-03-1990 


* Menu Title: 

* SubTitle 1: 

* SubTitle 2: 

* Purpose...: 

* 


Command and Officer Data Information System 
CODIS 

Output Media Selection Menu 
Select Output Media 


* Merge Code Area 1 
LSTPGM="RPT_MENU" 

* Set Up Working Environment 
SET TALK OFF 

SET HEADING OFF 
SET SAFETY OFF 
SET STATUS OFF 
CLEAR 

SET BELL OFF 

SET SCOREBOARD OFF 

* 


PUBLIC mwhere, mrpt, mfile, dsg 
* 


* Background Color: Blue (B) 

* Foreground Color: White (W) 

* Backlight Color; Black (N) 

* LightBar Color; White (W) 

* 
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SET COLOR TO W/B 

* Variables will Start with the letter "D” so other variables 
in memory 

* will not be overwritten. 

* 

* Initialize User Input Variable To Zero 
DEL=0 

DENU=.T. 

* DXPl & DXP2 contain user instructions. 

DXP1=" ''+CHR(24)+CHR(25)+'' Change Selection •' 

DXP2='' ''+CHR(17)+CHR(196)+CHR(217)+'' Make Selection •• 

* Initialize Menu Choice Variables 
DPT1=" 1 - Screen " 

DSGl=''Send report to the screen.” 

DPT2=” 2 - Printer ” 

DSG2=”Send report to the printer." 

DPT3=" 3 - Report File" 

DSG3="Send report to a file." 

DPT4=" 4 - dBase IV File " 

DSG4="Send data to a dBase IV file." 

DPT5=" 5 - ASCII File " 

DSG5="Send data to an ASCII text file." 

* Set Number Of Options 
DUM0P=5 

* Initialize Choice Indicator To #1 
DSG=1 

* Initialize Column Position and Options/Column 
DLM1= 5 

DLM2= 0 

DIDDL=4 0-(LEN(DPT4)/2) 

DDIDDL=40-(LEN(DSG5)/2) 

DO WHILE DENU 

* Merge Code Area 2 

* Set Up Menu Screen 

CLEAR 

@ 1,18 SAY "Command and Officer Data Information System" 

@ 2,37 SAY "CODIS" 

@ 3,30 SAY "Output Media Selection Menu" 

SET COLOR TO N/B 
@ 0,16 TO 4,62 DOUBLE 

* Merge Code Area 3 

@ 8,DIDDL-2 TO 9+DLMl,(DIDDL+(LEN(DPT4))+1) DOUBLE 
@ DLMl+ll,DDIDDL-2 TO DLMl+13,(DDIDDL+(LEN(DSG5))+1) 

* Display User Instructions/Help Window 

SET COLOR TO B/W 
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@ 22,16 SAY DXPl 
@ 22,40 SAY DXP2 
SET COLOR TO W/B 

* Display Menu Choices 

@ 9,DIDDL SAY DPTl 
@ 10,DIDDL SAY DPT2 
@ 11,DIDDL SAY DPT3 
@ 12,DIDDL SAY DPT4 
@ 13,DIDDL SAY DPT5 

* Merge Code Area 4 

* Determine which Help To Display from the Message 

DMP="DSG"+LTRIM(STR(DSG)) 

SET COLOR TO W/B 

@ DUMOP+12,DDIDDL SAY SPACE(LEN(DSG5)) 

@ DUMOP+12,DDIDDL SAY &DMP 
DPT=”DPT"+LTRIM(STR(DSG)) 

SET COLOR TO B/W 

@ DSG+8,DIDDL SAY &DPT 
SET COLOR TO W/B 
DEL=0 

* Keyboard Key Trapping 

DO WHILE DEL=0 

* Merge Code Area 5 

DEL= INKEY 0 
ENDDO 

@ DSG+8,DIDDL SAY &DPT 

* Check If Valid Key Was Depressed 

IF CHR(DEL) $ "12345" 

* Merge Code Area 6 

IF CHR(DEL) $ "1" 

DSG= 1 
ENDIF 

IF CHR(DEL) $ "2" 

DSG= 2 
ENDIF 

IF CHR(DEL) $ "3" 

DSG= 3 
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ENDIF 

IF CHR(DEL) $ "4" 
DSG= 4 
ENDIF 

IF CHR(DEL) $ "5" 
DSG= 5 
ENDIF 
EXIT 
ENDIF 

* Carrage Return Depressed? 

IF DEL = 13 
EXIT 
ENDIF 

* Up Arrow Depressed? 

IF DEL = 5 
DSG=DSG-1 

IF DSG<1 
DSG=DUMOP 
ENDIF 
ENDIF 

* Down Arrow Depressed? 

IF DEL =24 
DSG=DSG+1 

IF DSODUMOP 
DSG=1 
ENDIF 
ENDIF 
ENDDO 

* Merge Code Area 7 

* Perform Item Selected 

DO CASE 

CASE DSG=1 
CLEAR 

STORE " " TO mwhere 
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STORE ''Y'' TO mrpt 

CASE DSG=2 
CLEAR 

STORE "TO PRINT NOEJECT" TO mwhere 
STORE "Y" TO mrpt 

CASE DSG=3 
CLEAR 

ACCEPT "ENTER DRIVE & FILE FOR OUTPUT REPORT FILE: " 

TO mfile 

STORE "TO FILE " + mfile TO mwhere 
STORE "Y" TO mrpt 

CASE DSG=4 
CLEAR 

STORE "N" TO mrpt 

ACCEPT "ENTER DRIVE & FILE FOR OUTPUT DBASE FILE: " 

TO mfile 

CASE DSG=5 
CLEAR 

STORE "N" TO mrpt 

ACCEPT "ENTER DRIVE & FILE FOR OUTPUT ASCII FILE: " 

TO mfile 

ENDCASE 

* Merge Code Area 8 
RETURN 

* EOF: RPT MENU.PRG 


* Program...: BILLETS.PRG 

* Author....: LT Paul G. Scyoc 

* Date.: 09-03-1990 

* 

* Purpose...: Program to produce the Billet reports. 

* 

set talk off 
* Query by BSC or UIC? 
store " " to CHOICE 
store 0 to MFOUND 
clear 

@5, 10 say "Look up billets by BSC (B) or UIC (U)?" 
@ 7, 20 say "(enter B or U)" 

@5, 55 get CHOICE 
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read 

store upper(CHOICE) to CHOICE 

* Select Report Media 

if CHOICE = "B" .or. CHOICE = "U" 
do RPT_MENU 
else 

@8, 32 say "Invalid Entry!!" 
wait 
endif 

* Look up Billets by UIC 
if CHOICE = "U" 

store " " to MUIC 

store 0 to MNBR_UIC 
clear 

use OFFICER order UIC 

@5, 10 say "Enter UIC to find billets for: " 

@ 5, 50 get MUIC 
read 

find &MUIC 

if found 0 

store 1 to MFOUND 

count to MNBR_UIC while UIC = MUIC 
endif 

@ 10, 10 say "The UIC " + MUIC + " has " 

?? ltrim(str(MNBR_UIC)) 

?? " billet(s)." 

7 

7 

wait 

if MFOUND = 1 

if MRPT <> "N" 
find &MUIC 

report form BLT_UIC &MV7HERE while UIC = MUIC 
wait 

else 

if MFILE <> " " 
find &MUIC 
set talk on 

copy to &MFILE while UIC = MUIC 
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set talk off 

if DSG = 5 
use &MFILE 
copy to &MFILE SDF 
store Sinfile + ".dbf" to MFILE 
use 

delete file &MFILE 
endif 

endif 

endif 

endif 

endif 

* Look up Billets by BSC 
if CHOICE = "B" 

store " " to MBSC 

store 0 to MNBR_BSC 
clear 

use OFFICER order BSC2 

@5, 5 say "Enter BSC of BILLET to be found: " 

@ 5, 38 get MBSC 

read 

store upper(MBSC) to MBSC 
find &MBSC 

if found 0 

store 1 to MFOUND 

count to MNBR_BSC while BSC2 = MBSC 
endif 

@ 10, 5 say "The BSC " + MBSC + " was found " 

?? Itrim(str(MNBR_BSC)) 

?? " tiine(s)," 

7 

7 

wait 

if MFOUND = 1 


if MRPT <> "N" 
find &MBSC 
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report form BLT_BSC &MWHERE while BSC2 = MBSC 
wait 
else 

if MFILE <> " " 
find &MBSC 
set talk on 

copy to &MFILE while BSC2 = MBSC 
set talk off 

if DSG = 5 
use &MFILE 
copy to &MFILE SDF 
store Smfile + ".dbf" to MFILE 
use 

delete file &MFILE 
endif 

endif 

endif 

endif 

endif 

close all 
return 

* EOF: BILLETS.PRG 


* Program...: COMMJ^DS. PRG 

* Author....: LT Paul G. Scyoc 

* Date.: 09-03-1990 

* 

* Purpose...: Program to produce the Command report. 

* 

set talk off 
* Query by city or UIC? 
store ” " to CHOICE 
store 0 to MFOUNDl 
store 0 to MFOUND2 
clear 

@ 5, 10 say "Look up commands by City (C) or UIC (U)?" 
@7, 20 say "(enter C or U)" 

@5, 55 get CHOICE 
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read 

store upper(CHOICE) to CHOICE 


* Select Report Media 
if CHOICE = "C" .or. CHOICE = "U" 
do RPT_MENU 
else 

@8, 32 say "Invalid Entry!!" 
wait 
endif 


* Look up Cominand by UIC 
if CHOICE = "U" 

store " " to MUIC 

store 0 to MNBR_UIC 
clear 

use UIC order UIC 

@5, 10 say "Enter UIC of Cominand to be found: 

@ 5, 50 get MUIC 

read 

find &MUIC 
if found 0 

store 1 to MFOUND 

count to MNBR_UIC while UIC = MUIC 
endif 

@10, 10 say "The UIC " + MUIC + " was found " 
?? Itrim(str(MNBR_UIC)) 

?? " times." 

■7 


7 

wait 


II 


if MFOUND = 1 

if MRPT <> "N" 
find &MUIC 

report form CMD_UIC &MWHERE while UIC = MUIC 
wait 


else 

if mfile <> " " 
find &MUIC 
set talk on 

copy to &MFILE while UIC = MUIC 
set talk off 
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if DSG = 5 
use &MFILE 
copy to &MFILE SDF 
store infile + ".dbf" to MFILE 
use 

delete file &MFILE 
end if 

endif 

endif 

endif 

endif 


* Look up 
if CHOICE 
store " 
store " 
store 0 
store 0 
store 0 
clear 


Command by City 
= "c" 

" to MCITY 
to MNBR_CITY 
to MNBR_CITY2 
to MTTL CITY 


to MCITY NAME 


use UIC order ADDR3 

@5, 5 say "Enter name of CITY to be found: " 

@5, 38 get MCITY_NAME 

read 

store upper(trim(MCITY_NAME)) to MCITY 
find &MCITY 


if found 0 

store 1 to MFOUNDl 

count to MNBR_CITY while ADDR3=MCITY 
endif 


set order to ADDR4 
find &MCITY 
if found 0 

store 1 to MF0UND2 

count to MNBR_CITY2 while ADDR4=MCITY 
endif 

store MNBR_CITY + MNBR_CITY2 to MTTL_CITY 

@10, 5 say "The city of " + MCITY + " was found " 

?? ltrim(str(MTTL_CITY)) 

?? " time(s)." 

7 
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7 

wait 

if MFOUNDl = 1 .or. MFOUND2 = 1 
if MRPT <> "N" 


if MFOUNDl = 1 

set order to ADDR3 
find &MCITY 

report form CMD_CITY &MWHERE while ADDR3 = MCITY 
wait 
endif 

if MF0UND2 = 1 

set order to ADDR4 
find &MCITY 
wait 

report form CMD_CITY &MWHERE while ADDR4 = MCITY 
endif 

else 

if mfile <> " " 

set order to ADDR3 
find &MCITY 

copy to TEMPI while ADDR3 = MCITY 
* 

set order to ADDR4 
find &MCITY 

copy to TEMP2 while ADDR4 = MCITY 
* 

copy structure to &MFILE 
use &MFILE 
set talk on 
append from TEMPI 
append from TEMP2 
set talk off 
delete file TEMPI.DBF 
delete file TEMP2.DBF 
* 

if DSG = 5 
use &MFILE 
copy to &MFILE SDF 
store mfile + ".dbf” to MFILE 
use 

delete file &MFILE 
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end if 

endif 

end if 

endif 

endif 

close all 
return 

* EOF: COMMANDS.PRG 


* Program...: OFFICER.PRG 

* Author....: LT Paul G. Scyoc 

* Date.: 09-06-1990 

* 

* Purpose...: Program to produce the Officer Data report. 

* 

set talk off 

set exact off 

store space(27) to MNAME 

clear 

@ 5, 10 say "Enter the name of the officer: " 

@ 7, 15 say "(last first middle)" 

@ 5, 47 get MNAME 
read 

store upper(trim(MNAME)) to MNAME 

do RPT_MENU 

use OFFICER order NAME 

set talk on 

find &MNAME 

if found 0 

if MRPT <> "N" 

report form OFFICER &MWHERE while NAME = MNAME 
else 

if MFILE <> " " 

copy to &MFILE while NAME = MNAME 
if DSG = 5 
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use &MFILE 

copy to &MFILE SDF 

store &MFILE + ".dbf" to MFILE 

use 

delete file &MFILE 
end if 

end if 

endif 

endif 

close all 
set talk off 
return 

* EOF: OFFICER.PRG 


* Program...: 

* Author....: 

* Date.: 

* 


LIN_NBR.PRG 

LT Paul G. Scyoc 

09-03-1990 


* Purpose...: Program to produce the Lineal Number reports. 

* 

set talk off 

* Query by Lineal Number or Range of Lineal Numbers? 

store » » to CHOICE 

clear 

@5, 6 say "Look up a Single Lineal Number (S) or a Range of 

Numbers (R)?" 

@7, 20 say "(enter S or R)" 

@ 5, 72 get CHOICE 
read 

store upper(CHOICE) to CHOICE 


* Select Report Media 
if CHOICE = "S" .or. CHOICE = "R" 
do RPT_MENU 

else 

@8, 32 say "Invalid Entry!!" 

?? 

?? 

wait 
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endif 

* Look up a single Lineal Number, 
if CHOICE = "S" 

store " '' to MLINNBR 

clear 

use OFFICER order LIN_NBR 

@5, 10 say "Enter last 8 digits of Lineal Number; " 

@5, 50 get MLINNBR 
read 

find &MLINNBR 

7 

7 

wait 

if found 0 

if MRPT <> "N" 
find &MLINNBR 

report form LIN_NBR &MWHERE while substr (LINEAL_NBR, 2,8) 
= MLINNBR 

wait 

else 

if MFILE <> " " 
find &MLINNBR 

copy to &MFILE while substr(LINEAL_NBR,2,8) = MLINNBR 

if DSG = 5 
use &MFILE 
copy to &MFILE SDF 
store MFILE + ".dbf" to MFILE 
use 

delete file &MFILE 
endif 

endif 

endif 

endif 

endif 

* Look up a range of Lineal Numbers, 
if CHOICE = "R" 
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clear 

set exact off 
store '• '' to FIRST 

store " " to LAST 

store •' •' to DESIG 

store 0 to MNBR_LIN 
store 0 to MFOUND 

@5, 17 say "Input first Lineal Number of the range: " 
e 5, 57 get FIRST 

@7, 17 say "Input last Lineal Number of the range: " 

@ 7, 57 get LAST 

@9, 17 say "Input first 2 digits of designator: " 

@ 9, 57 get DESIG 
read 

store DESIG + FIRST to TARGET 
use OFFICER order DESIG_LIN 
find &TARGET 

if found 0 

store 1 to MFOUND 

count to MNBR_LIN while DESIGNATOR=DESIG .and. substr 
(LINEAL_NBR,2,8) <= LAST 

end if 

@15, 5 say "In the range " + FIRST 
?? " thru " + LAST + ", " 
e 17,5 say ltrim(str(MNBR_LIN)) 

?? " officers were found with the designator " + DESIG 

?? "XX." 

7 

7 

wait 

if MFOUND = 1 
find &TARGET 

if MRPT <> "N" 

report form LIN_NBR &MWHERE while DESIGNATOR=DESIG .and. 
substr(LINEAL_NBR,2,8) <= LAST 

wait 

else 

if MFILE <> " " 

copy to &MFILE while DESIGNATOR=DESIG .and. substr 
(LINEAL_NBR,2,8) <= LAST 
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if DSG = 5 
use &MFILE 
copy to &MFILE SDF 
store MFILE + ".dbf" to MFILE 
use 

delete file &MFILE 
endif 

endif 

endif 

endif 

endif 

close all 
return 

* EOF: LIN NBR.PRG 


* Program...: SPECIALT.PRG 

* Author....: LT Paul G. Scyoc 

* Date.: 09-06-1990 

* 

* Purpose...: Program to produce the Officer Subspecialty 

* report. 

* 

set talk off 
set exact off 

store " " to MSPECIALT 

store 0 to MSPEC 

store 0 to MSPEC_TTL 

store 0 to MFOUNDl 

store 0 to MF0UND2 

store 0 to MF0UND3 

clear 

@5, 10 say "Enter Subspecialty Code: " 

@ 5, 47 get MSPECIALT 
read 

store upper(MSPECIALT) to MSPECIALT 
do RPT_MENU 

use OFFICER order SPECIALTYl 
find &MSPECIALT 

if found0 
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store 1 to MFOUNDl 

count to MSPEC while SPECIALTYl = MSPECIALT 
store MSPEC to MSPEC_TTL 
endif 

set order to SPECIALTY2 
find &MSPECIALT 

if found 0 

store 1 to MFOUND2 

count to MSPEC while SPECIALTY2 = MSPECIALT 
store MSPEC_TTL + MSPEC to MSPEC_TTL 
endif 

set order to SPECIALTY3 
find &MSPECIALT 

if found 0 

store 1 to MFOUND3 

count to MSPEC while SPECIALTY3 = MSPECIALT 
store MSPEC_TTL + MSPEC to MSPEC_TTL 
endif 

@ 10,5 say "The subspecialty code " + MSPECIALT + " was found 

It 

?? MSPEC_TTL 
?? " tiine(s) . " 

7 

7 

wait 

if MFOUNDl = 1 .or. MFOUND2 = 1 .or. MFOUND3 = 1 

if MRPT <> "N" 

if MFOUNDl = 1 

set order to SPECIALTYl 
find &MSPECIALT 

report form SPECIALT &MWHERE while SPECIALTY1=MSPECIALT 
wait 
endif 

if MFOUND2 = 1 

set order to SPECIALTY2 
find &MSPECIALT 

report form SPECIALT &MWHERE while SPECIALTY2=MSPECIALT 
wait 
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endif 

if MFOUND3 = 1 

set order to SPECIALTY3 
find &MSPECIALT 

report form SPECIALT &MWHERE while SPECIALTY3=MSPECIALT 
wait 
endif 

else 

if MFILE <> " " 

set order to SPECIALTYl 
find &MSPECIALT 

copy to TEMPI while SPECIALTYl = MSPECIALT 
* 

set order to SPECIALTY2 
find &MSPECIALT 

copy to TEMP2 while SPECIALTY2 = MSPECIALT 
* 

set order to SPECIALTY3 
find &MSPECIALT 

copy to TEMP3 while SPECIALTY3 = MSPECIALT 
* 

copy structure to &MFILE 
use &MFILE 
append from TEMPI 
append from TEMP2 
append from TEMP3 
delete file TEMPI.DBF 
delete file TEMP2.DBF 
delete file TEMP3.DBF 
* 

if DSG = 5 
use &MFILE 
copy to &MFILE SDF 
store MFILE + ".dbf" to MFILE 
use 

delete file &MFILE 
endif 

endif 

endif 

endif 
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close all 
return 

* EOF: SPECIALT.PRG 


* Program.: BLT_BSC.FRG 

* Date.: 9-10-90 

* 

* Notes: 

* - 

* Prior to running this procedure with the DO command 

* it is necessary use LOCATE because the CONTINUE 

* statement is in the main loop. 

* 

*— Parameters 

PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, 
gc_extra 

** The first three parameters are of type Logical. 

** The fourth parameter is a string. The fifth is extra. 
PRIVATE _peject, _wrap 

*— Test for no records found 
IF EOF() .OR. .NOT. FOUND() 

RETURN 

ENDIF 

*— turn word wrap mode off 
_wrap=.F. 

IF _plength <1+1+2 
SET DEVICE TO SCREEN 

DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE 
ACTIVATE WINDOW gw_report 

@0,1 SAY "Increase the page length for this report." 

@ 2,1 SAY "Press any key ..." 
x=INKEY(0) 

DEACTIVATE WINDOW gw_report 
RELEASE WINDOW gw_report 
RETURN 
ENDIF 

_plineno=0 && set lines to zero 

*— NOEJECT parameter 
IF gl_noeject 

IF _peject="BEFORE" 

_peject="NONE" 
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ENDIF 

IF _peject="BOTH" 
_peject="AFTER" 
ENDIF 
ENDIF 


*— Set-up environment 
ON ESCAPE DO Prnabort 
IF SET("TALK")="ON" 

SET TALK OFF 
gc_talk="ON" 

ELSE 

gc_talk="OFF" 

ENDIF 


gc_space=SET("SPACE") 
SET SPACE OFF 


gc_time=TIME0 && system time for predefined field 

gd_date=DATE() && system date " " " " 

gl_fandl=.F. && first and last page flag 

gl prntflq=.T. && Continue printing flag 

gl_widow=.T. && flag for checking widow bands 

gn_length=LEN(gc_heading) && store length of the HEADING 
gn_level=2 && current band being processed 

gn_page=_pageno && grab current page number 

gn_pspace=_pspacing && get current print spacing 


*— Set up procedure for page break 

gn_atline=_plength - 1 

ON PAGE AT LINE gn_atline EJECT PAGE 

*— Print Report 

PRINTJOB 

IF gl_plain 

ON PAGE AT LINE gn_atline DO Pgplain 
ELSE 

ON PAGE AT LINE gn_atline DO Pgfoot 
ENDIF 

DO Pghead 

gl_fandl=.T. && first physical page started 

DO Rintro 
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*— File Loop 

DO WHILE FOUND0 .AND. .NOT. EOF() .AND. gl_prntflg 
gn_level=0 
*— Detail lines 
IF gl_summary 
DO Upd_Vars 
ELSE 

DO _Detail 

ENDIF 

gl_widow=.T. && enable widow checking 

CONTINUE 
ENDDO 

IF gl_prntflg 
ELSE 

DO Reset 
RETURN 
ENDIF 

ON PAGE 

ENDPRINTJOB 

DO Reset 
RETURN 

* EOP: BLT_BSC.FRG 

*— Update summary fields and/or calculated fields. 

PROCEDURE Upd_Vars 
RETURN 

* EOP: Upd_Vars 

*— Set flag to get out of DO WHILE loop when escape is 
pressed. 

PROCEDURE Prnabort 
gl_prntflg=.F. 

RETURN 

* EOP: Prnabort 
PROCEDURE Pghead 

*— Print HEADING parameter ie. REPORT FORM <name> HEADING 
<expC> 

IF .NOT. gl_plain .AND. gn_length > 0 

?? gc_heading FUNCTION "I;V"+LTRIM(STR(_rmargin-_lmargin)) 

ENDIF 
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RETURN 

* EOF: Pghead 
PROCEDURE Rintro 

?? "BILLETS BY NAVY COMMAND" STYLE "B" AT 29 

7 

7 

?? "SEA/" STYLE "B" AT 73 

•? 

« 

?? "UIC" STYLE "B" AT 3,; 

"COMMAND" STYLE "B" AT 16,; 

"BSC" STYLE "B" AT 34,; 

"BILLET TITLE" STYLE "B" AT 44,; 

"HOMEPORT" STYLE "B" AT 61,; 

"SHORE" STYLE "B" AT 73 

7 

RETURN 

* EOF: Rintro 

PROCEDURE _Detail 

IF 2 * gn_pspace < gn_atline - 1 

IF gl_widow .AND. _plineno+2 * gn_pspace > gn_atline + 1 
EJECT PAGE 
ENDIF 
ENDIF 

DO Upd_Vars 

7 

?? Uic FUNCTION "T" AT 2,; 

Act_title FUNCTION "T" AT 12,; 

Bsc2 FUNCTION "T" AT 33,; 

Billet_ttl FUNCTION "T" AT 43,; 

Homeport FUNCTION "T" AT 62,; 

Sea_shore FUNCTION "T" AT 73 

7 

RETURN 

* EOF: Detail 


PROCEDURE Pgfoot 
PRIVATE _box 

gl_widow=.F. && disable widow checking 

EJECT PAGE 

*— is the page number greater than the ending page 
IF _pageno > _pepage 
GOTO BOTTOM 
SKIP 

gn_level=0 
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ENDIF 

IF .NOT. gl_plain .AND. gl_fandl 
_pspacing=gn_pspace 
DO Pghead 
ENDIF 
RETURN 

* EOF: Pgfoot 

*— Process page break when PLAIN option is used. 

PROCEDURE Pgplain 

PRIVATE _box 

EJECT PAGE 

RETURN 

* EOP: Pgplain 

*— Reset dBASE environment prior to calling report 

PROCEDURE Reset 

SET SPACE &gc_space. 

SET TALK &gc_talk. 

ON ESCAPE 
ON PAGE 
RETURN 

* EOP: Reset 


* Program.: BLT_UIC.FRG 

* Date.: 9-10-90 

* 

* Notes: 

* - 

* Prior to running this procedure with the DO command 

* it is necessary use LOCATE because the CONTINUE 

* statement is in the main loop. 

* 

*— Parameters 

PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, 
gc_extra 

** The first three parameters are of type Logical. 

** The fourth parameter is a string. The fifth is extra. 
PRIVATE _pej ect, _wrap 

*— Test for no records found 
IF EOF() .OR. .NOT. FOUND() 

RETURN 

ENDIF 
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*— turn word wrap mode off 
_wrap=.F. 

IF _plength <1+1+2 
SET DEVICE TO SCREEN 

DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE 
ACTIVATE WINDOW gw_report 

@ 0,1 SAY "Increase the page length for this report." 

@ 2,1 SAY "Press any key ..." 
x=INKEY(0) 

DEACTIVATE WINDOW gw_report 
RELEASE WINDOW gw_report 
RETURN 
ENDIF 

_plineno=0 && 

*— NOEJECT parameter 
IF gl_noeject 

IF _peject="BEFORE" 

_peject="NONE" 

ENDIF 

IF _peject="BOTH" 

_pej ect="AFTER" 

ENDIF 
ENDIF 

*— Set-up environment 
ON ESCAPE DO Prnabort 
IF SET("TALK")="ON" 

SET TALK OFF 
gc_talk="ON" 

ELSE 

gc_talk="OFF" 

ENDIF 

gc_space=SET("SPACE") 

SET SPACE OFF 
gc_time=TIME0 && 

gd_date=DATE() & & 

gl_fandl=.F. && 

gl_prntflg=.T. && 

gl_widow=.T. && 

gn_length=LEN(gc_heading) && store length of the HEADING 
gn_level=2 && current band being processed 

gn_page=_pageno && grab current page number 

gn_pspace=_pspacing && get current print spacing 


set lines to zero 


system time for predefined field 
system date " " " " 

first and last page flag 
Continue printing flag 
flag for checking widow bands 
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*— Set up procedure for page break 

gn_atline=_plength - 1 

ON PAGE AT LINE gn_atline EJECT PAGE 

*— Print Report 

PRINTJOB 

IF gl_plain 

ON PAGE AT LINE gn_atline DO Pgplain 
ELSE 

ON PAGE AT LINE gn_atline DO Pgfoot 
ENDIF 

DO Pghead 

gl_fandl=.T. && first physical page started 

DO Rintro 
*— File Loop 

DO WHILE FOUND0 .AND. .NOT. EOF() .AND. gl_prntflg 
gn_level=0 
*— Detail lines 
IF gl_suininary 
DO Upd_Vars 
ELSE 

DO _Detail 

ENDIF 

gl_widow=.T. && enable widow checking 

CONTINUE 
ENDDO 

IF gl_prntflg 
ELSE 

DO Reset 
RETURN 
ENDIF 

ON PAGE 

ENDPRINTJOB 

DO Reset 
RETURN 

* EOP; BLT UIC.FRG 
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*— Update summary fields and/or calculated fields. 

PROCEDURE Upd_Vars 
RETURN 

* EOP: Upd_Vars 

*— Set flag to get out of DO WHILE loop when escape is 
pressed. 

PROCEDURE Prnabort 
gl_prntflg=.F. 

RETURN 

* EOP: Prnabort 
PROCEDURE Pghead 

*— Print HEADING parameter ie. REPORT FORM <name> HEADING 
<expC> 

IF .NOT. gl_plain .AND. gn_length > 0 

?? gc_heading FUNCTION "I;V"+LTRIM(STR(_rmargin-_lmargin)) 

7 

ENDIF 

RETURN 

* EOP; Pghead 
PROCEDURE Rintro 

?? "BILLETS BY BSC" STYLE "B" AT 31 

7 

7 

?? "SEA/" STYLE "B" AT 73 

7 

?? "UIC" STYLE "BU" AT 3,; 

"COMMAND" STYLE "BU" AT 16,; 

"BSC" STYLE "B" AT 34,; 

"BILLET TITLE" STYLE "B" AT 44,; 

"HOMEPORT" STYLE "B" AT 61,; 

"SHORE" STYLE "B" AT 73 

7 

RETURN 

* EOP: Rintro 

PROCEDURE _Detail 

IF 2 * gn_pspace < gn_atline - 1 

IF gl_widow .AND. _plineno+2 * gn_pspace > gn_atline + 1 
EJECT PAGE 
ENDIF 
ENDIF 

DO Upd_Vars 

7 
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?? Uic FUNCTION "T" AT 2,; 
Act_title FUNCTION "T" AT 12,; 
Bsc2 FUNCTION "T" AT 33,; 
Billet_ttl FUNCTION "T" AT 43,; 
Homeport FUNCTION "T" AT 62,; 
Sea_shore FUNCTION "T" AT 73 

7 

RETURN 

* EOF: Detail 


PROCEDURE Pgfoot 
PRIVATE _box 

gl_widow=.F. && disable widow checking 

EJECT PAGE 

*— is the page number greater than the ending page 
IF _pageno > _pepage 
GOTO BOTTOM 
SKIP 

gn_level=0 

ENDIF 

IF .NOT. gl_plain .AND. gl_fandl 
_pspacing=gn_pspace 
DO Pghead 
ENDIF 
RETURN 

* EOP: Pgfoot 

*— Process page break when PLAIN option is used. 

PROCEDURE Pgplain 

PRIVATE _box 

EJECT PAGE 

RETURN 

* EOP: Pgplain 

*— Reset dBASE environment prior to calling report 

PROCEDURE Reset 

SET SPACE &gc_space. 

SET TALK &gc_talk. 

ON ESCAPE 
ON PAGE 
RETURN 

* EOP: Reset 
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* Program.: CMD_CITY.FRG 

* Date.: 9-10-90 

* 

* Notes: 

* -- 

* Prior to running this procedure with the DO command 

* it is necessary use LOCATE because the CONTINUE 

* statement is in the main loop. 

* 

*— Parameters 

PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, 
gc_extra 

** The first three parameters are of type Logical. 

** The fourth parameter is a string. The fifth is extra. 
PRIVATE _peject, _wrap 

*— Test for no records found 
IF EOF() .OR. .NOT. FOUND() 

RETURN 

ENDIF 

*— turn word wrap mode off 
_wrap=.F. 

IF _plength <1+1+2 
SET DEVICE TO SCREEN 

DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE 
ACTIVATE WINDOW gw_report 

@ 0,1 SAY "Increase the page length for this report." 

@ 2,1 SAY "Press any key ..." 
x=INKEY(0) 

DEACTIVATE WINDOW gw_report 
RELEASE WINDOW gw_report 
RETURN 
ENDIF 

_plineno=0 && set lines to zero 

*— NOEJECT parameter 
IF gl_noeject 

IF _peject="BEFORE" 

_peject="NONE" 

ENDIF 

IF _peject="BOTH" 

_pej ect="AFTER" 

ENDIF 

ENDIF 
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*— Set-up environment 
ON ESCAPE DO Prnabort 
IF SET("TALK")="ON" 

SET TALK OFF 
gc_talk="ON" 

ELSE 

gc_talk="OFF" 

ENDIF 


gc_space=SET("SPACE") 
SET SPACE OFF 


gc_time=TIME0 && system time for predefined field 

gd_date=DATE() && system date " " " " 

gl_fandl=.F. && first and last page flag 

gl_prntflg=.T. && Continue printing flag 

gl_widow=.T. && flag for checking widow bands 

gn_length=LEN(gc_heading) && store length of the HEADING 
gn_level=2 && current band being processed 

gn_page=_pageno && grab current page number 

gn_pspace=_pspacing && get current print spacing 


*— Set up procedure for page break 

gn_atline=_plength - 1 

ON PAGE AT LINE gn_atline EJECT PAGE 

*— Print Report 

PRINTJOB 

IF gl_plain 

ON PAGE AT LINE gn_atline DO Pgplain 
ELSE 

ON PAGE AT LINE gn_atline DO Pgfoot 
ENDIF 

DO Pghead 

gl_fandl=.T. && first physical page started 

DO Rintro 
*— File Loop 

DO WHILE FOUND0 .AND. .NOT. EOF() .AND. gl_prntflg 
gn_level=0 
*— Detail lines 
IF gl_summary 
DO Upd_Vars 
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ELSE 

DO _Detail 

ENDIF 

gl_widow=.T. && enable widow checking 

CONTINUE 
ENDDO 

IF gl_prntflg 
ELSE 

DO Reset 
RETURN 
ENDIF 

ON PAGE 

ENDPRINTJOB 

DO Reset 
RETURN 

* EOP: CMD_CITY.FRG 

*— Update summary fields and/or calculated fields. 

PROCEDURE Upd_Vars 
RETURN 

* EOP: Upd_Vars 

*— Set flag to get out of DO WHILE loop when escape is 
pressed. 

PROCEDURE Prnabort 
gl_prntflg=.F. 

RETURN 

* EOP: Prnabort 
PROCEDURE Pghead 

*— Print HEADING parameter ie. REPORT FORM <name> HEADING 
<expC> 

IF .NOT. gl_plain .AND. gn_length > 0 

?? gc_heading FUNCTION "I ;V"+LTRIM(STR(_rmargin-_lmargin)) 

7 

ENDIF 

RETURN 

* EOP: Pghead 
PROCEDURE Rintro 

?? "NAVY COMMAND BY GEOGRAPHIC LOCATION” STYLE "BU" AT 23 
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• 

?? "CITY: ” STYLE "B" AT 29 
?? MCITY 

7 

7 

?? "SEA/" STYLE "B" AT 38 

7 

?? "UIC" STYLE "B" AT 8,; 

"COMMAND" STYLE "B" AT 21,; 

"SHORE" STYLE "BU" AT 38,; 

"HOMEPORT" STYLE "BU" AT 47,; 

"ZIP CODE" STYLE "BU" AT 61 

7 

RETURN 

* EOP: Rintro 

PROCEDURE _Detail 

IF 2 * gn_pspace < gn_atline - 1 

IF gl widow .AND. plineno+2 * gn pspace > gn atline + 1 
EJECT PAGE 
ENDIF 
ENDIF 

DO Upd_Vars 

7 

?? Uic FUNCTION "T" AT 7,; 

Act_title FUNCTION "T" AT 17,; 

Sea_shore FUNCTION "T" AT 40,; 

Homeport FUNCTION "T" AT 48,; 

Zip FUNCTION "T" AT 60,; 

If _ If 

/ > 

Zip_ext FUNCTION "T" 

7 

RETURN 

* EOP: Detail 


PROCEDURE Pgfoot 
PRIVATE _box 

gl_widow=.F. && disable widow checking 

EJECT PAGE 

*— is the page number greater than the ending page 
IF _pageno > _pepage 
GOTO BOTTOM 
SKIP 

gn_level=0 

ENDIF 

IF .NOT. gl_plain .AND. gl_fandl 
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_pspacing=gn_pspace 
DO Pghead 
ENDIF 
RETURN 

* EOF: Pgfoot 

*— Process page break when PLAIN option is used. 

PROCEDURE Pgplain 

PRIVATE _box 

EJECT PAGE 

RETURN 

* EOF: Pgplain 

*— Reset dBASE environment prior to calling report 

PROCEDURE Reset 

SET SPACE &gc_space. 

SET TALK &gc_talk. 

ON ESCAPE 
ON PAGE 
RETURN 

* EOP: Reset 


* Program.: CMD_UIC.FRG 

* Date.: 9-10-90 

* 

* Notes: 

* - 

* Prior to running this procedure with the DO command 

* it is necessary use LOCATE because the CONTINUE 

* statement is in the main loop. 

* 

*— Parameters 

PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, 
gc_extra 

** The first three parameters are of type Logical. 

** The fourth parameter is a string. The fifth is extra. 
PRIVATE _peject, _wrap 

*— Test for no records found 
IF EOF() .OR. .NOT. FOUND() 

RETURN 

ENDIF 

*— turn word wrap mode off 
_wrap=.F. 
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IF _plength <1+1+2 
SET DEVICE TO SCREEN 

DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE 
ACTIVATE WINDOW gw_report 

@0,1 SAY "Increase the page length for this report." 

@ 2,1 SAY "Press any key ..." 
x=INKEY(0) 

DEACTIVATE WINDOW gw_report 
RELEASE WINDOW gw_report 
RETURN 
ENDIF 

_plineno=0 && 

*— NOEJECT parameter 
IF gl_noeject 

IF _peject="BEFORE" 

_peject="NONE" 

ENDIF 

IF _peject="BOTH" 

_peject="AFTER" 

ENDIF 
ENDIF 

*— Set-up environment 
ON ESCAPE DO Prnabort 
IF SET("TALK")="ON" 

SET TALK OFF 
gc_talk="ON" 

ELSE 

gc_talk="OFF" 

ENDIF 

gc_space=SET("SPACE") 

SET SPACE OFF 
gc_time=TIME() && 

gd_date=DATE() & & 

gl_fandl=.F. && 

gl_prntflg=.T. && 

gl_widow=.T. && 

gn_length=LEN(gc_heading) && store length of the HEADING 
gn_level=2 && current band being processed 

gn_page=_pageno && grab current page number 

gn_pspace=_pspacing && get current print spacing 


set lines to zero 


system time for predefined field 
system date " " " " 

first and last page flag 
Continue printing flag 
flag for checking widow bands 


*— Set up procedure for page break 

gn_atline=_plength - 1 

ON PAGE AT LINE gn_atline EJECT PAGE 
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*— Print Report 
PRINTJOB 
IF gl_plain 

ON PAGE AT LINE gn_atline DO Pgplain 
ELSE 

ON PAGE AT LINE gn_atline DO Pgfoot 
ENDIF 

gl_fandl=.T. && first physical page started 

*— File Loop 

DO WHILE FOUND0 .AND. .NOT. EOF() .AND. gl_prntflg 
gn_level=0 
*— Detail lines 
IF gl_suTnTnary 
DO Upd_Vars 
ELSE 

DO _Detail 

ENDIF 

gl_widow=.T. && enable widow checking 

CONTINUE 
ENDDO 

IF gl_prntflg 
ELSE 

DO Reset 
RETURN 
ENDIF 

ON PAGE 

ENDPRINTJOB 

DO Reset 
RETURN 

* EOP: CMD_UIC.FRG 

*— Update summary fields and/or calculated fields. 

PROCEDURE Upd_Vars 
RETURN 

* EOP: Upd_Vars 

*— Set flag to get out of DO WHILE loop when escape is 
pressed. 

PROCEDURE Prnabort 
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gl_prntflg=.F. 
RETURN 

* EOF: Prnabort 


PROCEDURE _Detail 

IF 13 * gn_pspace < gn_atline - 1 

IF gl_widow .AND. _plineno+13 * gn_pspace > gn_atline + 1 
EJECT PAGE 
ENDIF 
ENDIF 

DO Upd_Vars 

7 

?? "NAVY COMMAND BY UIC" STYLE "BU" AT 32 

7 

7 

7 

?? Addrl FUNCTION "T" STYLE "BU" AT 11,; 

"UIC:" STYLE "BU" AT 54,; 

Uic FUNCTION "T" STYLE "BU" AT 60 

7 

7 

?? Addr2 FUNCTION "T" STYLE "BU" AT 11,; 

"HOMEPORT:" STYLE "BU" AT 49,; 

Homeport FUNCTION "T" STYLE "BU" AT 60 

7 

7 

?? Addr3 FUNCTION "T" STYLE "BU" AT 11,; 

"SEA/SHORE:" STYLE "BU" AT 48,; 

Sea_shore FUNCTION "T" STYLE "BU" AT 60 

7 

7 

?? Addr4 FUNCTION "T" STYLE "BU" AT 11,; 

"ZIP-CODE:" STYLE "BU" AT 49,; 

Zip FUNCTION "T" STYLE "BU" AT 60,; 

"-" STYLE "B" ,; 

Zip_ext FUNCTION "T" STYLE "B" 

7 

7 

7 

RETURN 

* EOP: Detail 


PROCEDURE Pgfoot 
PRIVATE box 
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gl_widow=.F. && disable widow checking 

EJECT PAGE 

*— is the page number greater than the ending page 
IF _pageno > _pepage 
GOTO BOTTOM 
SKIP 

gn_level=0 

ENDIF 

RETURN 

* EOP: Pgfoot 

*— Process page break when PLAIN option is used. 

PROCEDURE Pgplain 

PRIVATE _box 

EJECT PAGE 

RETURN 

* EOP: Pgplain 

*— Reset dBASE environment prior to calling report 

PROCEDURE Reset 

SET SPACE &gc_space. 

SET TALK &gc_talk. 

ON ESCAPE 
ON PAGE 
RETURN 

* EOP: Reset 


* Program. : LIN_NBR.FRG 

* Date.: 9-10-90 

* 

* Notes: 

* - 

* Prior to running this procedure with the EX) command 

* it is necessary use LOCATE because the CONTINUE 

* statement is in the main loop. 

* 

*— Parameters 

PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, 
gc_extra 

** The first three parameters are of type Logical. 

** The fourth parameter is a string. The fifth is extra. 
PRIVATE _peject, _wrap 


*— Test for no records found 
IF EOF() .OR. .NOT. FOUND() 
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RETURN 

ENDIF 

*— turn word wrap mode off 
_wrap=.F. 

IF _plength <1+1+2 
SET DEVICE TO SCREEN 

DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE 
ACTIVATE WINDOW gw_report 

@ 0,1 SAY "Increase the page length for this report." 

@ 2,1 SAY "Press any key ..." 
x=INKEY(0) 

DEACTIVATE WINDOW gw_report 
RELEASE WINDOW gw_report 
RETURN 
ENDIF 

_plineno=0 && 

*— NOEJECT parameter 
IF gl_noeject 

IF _peject="BEFORE" 

_pej ect="N0NE" 

ENDIF 

IF _peject="BOTH" 

_pej ect="AFTER" 

ENDIF 
ENDIF 

*— Set-up environment 
ON ESCAPE DO Prnabort 
IF SET("TALK")="ON" 

SET TALK OFF 
gc_talk="ON" 

ELSE 

gc_talk="OFF" 

ENDIF 

gc_space=SET("SPACE") 

SET SPACE OFF 
gc_time=TIME0 && 

gd_date=DATE() & & 

gl_fandl=.F. && 

gl_prntflg=.T. && 

gl_widow=.T. && 

gn_length=LEN(gc_heading) && store length of the HEADING 
gn_level=2 && current band being processed 

gn_page=_pageno && grab current page number 


set lines to zero 


system time for predefined field 
system date " " " " 

first and last page flag 
Continue printing flag 
flag for checking widow bands 
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gn_pspace=_pspacing && get current print spacing 


*— Set up procedure for page break 

gn_atline=_plength - 1 

ON PAGE AT LINE gn_atline EJECT PAGE 

*— Print Report 

PRINTJOB 

IF gl_plain 

ON PAGE AT LINE gn_atline DO Pgplain 
ELSE 

ON PAGE AT LINE gn_atline DO Pgfoot 
ENDIF 

DO Pghead 

gl_fandl=.T. && first physical page started 

DO Rintro 
*— File Loop 

DO WHILE FOUND0 .AND. .NOT. EOF() .AND. gl_prntflg 
gn_level=0 
*— Detail lines 
IF gl_suininary 
DO Upd_Vars 
ELSE 

DO _Detail 

ENDIF 

gl_widow=.T. && enable widow checking 

CONTINUE 
ENDDO 

IF gl_prntflg 
ELSE 

DO Reset 
RETURN 
ENDIF 

ON PAGE 

ENDPRINTJOB 

DO Reset 
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RETURN 

* EOF; LIN_NBR.FRG 

*— Update summary fields and/or calculated fields. 

PROCEDURE Upd_Vars 
RETURN 

* EOF: Upd_Vars 

*— Set flag to get out of DO WHILE loop when escape is 
pressed. 

PROCEDURE Prnabort 
gl_prntflg=. F. 

RETURN 

* EOF: Prnabort 
PROCEDURE Pghead 

*— Print HEADING parameter ie. REPORT FORM <name> HEADING 
<expC> 

IF .NOT. gl_plain .AND. gn_length > 0 

?? gc_heading FUNCTION "I;V"+LTRIM(STR(_rmargin-_lmargin)) 

7 

ENDIF 

RETURN 

* EOP: Pghead 
PROCEDURE Rintro 

?? "PRECEDENCE LIST REPORT" AT 28 

7 

7 

?? "DESIG-" STYLE "B" AT 58,; 

"DATE OF" STYLE "B" AT 67 

7 

?? "NUMBER" AT 4,; 

"NAME" AT 28,; 

"RANK" AT 49,; 

"NATOR" AT 58,; 

"RANK" AT 68,; 

"SEX" AT 76 

7 

RETURN 

* EOP: Rintro 

PROCEDURE _Detail 

IF 2 * gn_pspace < gn_atline - 1 

IF gl_widow .AND. _plineno+2 * gn_pspace > gn_atline + 1 
EJECT PAGE 
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ENDIF 

ENDIF 

DO Upd_Vars 

7 

?? Lineal_nbr FUNCTION "T" PICTURE "XXXXXXX-XX" AT 2,; 
Name FUNCTION "T" AT 17,; 

Rank FUNCTION "T" AT 49,; 

Designator FUNCTION "T" AT 58,; 

Dor FUNCTION "T" AT 67,; 

Sex FUNCTION "T" AT 77 

7 

RETURN 

* EOP: Detail 


PROCEDURE Pgfoot 
PRIVATE _box 

gl_widow=.F. && disable widow checking 

EJECT PAGE 

*— is the page number greater than the ending page 
IF _pageno > _pepage 
GOTO BOTTOM 
SKIP 

gn_level=0 

ENDIF 

IF .NOT. gl_plain .AND. gl_fandl 
_pspacing=gn_pspace 
DO Pghead 
ENDIF 
RETURN 

* EOP: Pgfoot 

*— Process page break when PLAIN option is used. 

PROCEDURE Pgplain 

PRIVATE _box 

EJECT PAGE 

RETURN 

* EOP: Pgplain 

*— Reset dBASE environment prior to calling report 

PROCEDURE Reset 

SET SPACE &gc_space. 

SET TALK &gc_talk. 

ON ESCAPE 
ON PAGE 
RETURN 

* EOP: Reset 
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* Program.: OFFICER.FRG 

* Date.: 9-06-90 

* 

* Notes: 

■k - 

* Prior to running this procedure with the DO command 

* it is necessary use LOCATE because the CONTINUE 

* statement is in the main loop. 

* 

*— Parameters 

PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, 
gc_extra 

** The first three parameters are of type Logical. 

** The fourth parameter is a string. The fifth is extra. 
PRIVATE _peject, _wrap 

*— Test for no records found 
IF EOF() .OR. .NOT. FOUND() 

RETURN 

ENDIF 

*— turn word wrap mode off 
_wrap=.F. 

IF _plength <1+1+2 
SET DEVICE TO SCREEN 

DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE 
ACTIVATE WINDOW gw_report 

@0,1 SAY "Increase the page length for this report." 

@ 2,1 SAY "Press any key ..." 
x=INKEY(0) 

DEACTIVATE WINDOW gw_report 
RELEASE WINDOW gw_report 
RETURN 
ENDIF 

_plineno=0 && set lines to zero 

*— NOEJECT parameter 
IF gl_noeject 

IF _peject="BEFORE" 

_peject="NONE" 

ENDIF 

IF _peject="BOTH" 

_peject="AFTER" 

ENDIF 

ENDIF 
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*— Set-up environment 
ON ESCAPE DO Prnabort 
IF SET ("TALK” )="ON'' 

SET TALK OFF 
gc_talk=''ON" 

ELSE 

gc_talk="OFF" 

ENDIF 


gc_space=SET("SPACE") 
SET SPACE OFF 


gc_time=TIME() && system time for predefined field 

gd_date=DATE() && system date " " " " 

gl_fandl=.F. && first and last page flag 

gl_prntflg=.T. && Continue printing flag 

gl_widow=.T. && flag for checking widow bands 

gn_length=LEN(gc_heading) && store length of the HEADING 
gn_level=2 && current band being processed 

gn_page=_pageno && grab current page number 

gn_pspace=_pspacing && get current print spacing 


*— Set up procedure for page break 

gn_atline=_plength - 1 

ON PAGE AT LINE gn_atline EJECT PAGE 

*— Print Report 

PRINTJOB 

IF gl_plain 

ON PAGE AT LINE gn_atline DO Pgplain 
ELSE 

ON PAGE AT LINE gn_atline DO Pgfoot 
ENDIF 

gl_fandl=.T. && first physical page started 

*— File Loop 

DO WHILE FOUNDO .AND. .NOT. EOF() .AND. gl_prntflg 
gn_level=0 
*— Detail lines 
IF gl_summary 
DO Upd_Vars 
ELSE 

DO _Detail 

ENDIF 

gl_widow=.T. && enable widow checking 
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IF dsg=l 
WAIT 
ENDIF 
CONTINUE 
ENDDO 

IF gl_prntflg 
ELSE 

DO Reset 
RETURN 
ENDIF 

ON PAGE 

ENDPRINTJOB 

DO Reset 
RETURN 

* EOP: OFFICER.FRG 

*— Update summary fields and/or calculated fields. 

PROCEDURE Upd_Vars 
RETURN 

* EOP: Upd_Vars 

*— Set flag to get out of DO WHILE loop when escape is 
pressed. 

PROCEDURE Prnabort 
gl_prntflg=.F. 

RETURN 

* EOP: Prnabort 


PROCEDURE _Detail 

IF 21 * gn_pspace < gn_atline - 1 

IF gl_widow .AND. _plineno+21 * gn_pspace > gn_atline + 1 
EJECT PAGE 
ENDIF 
ENDIF 

DO Upd_Vars 
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+ ” ” ; 

AT 0 

7 

7 

?? "Name:” STYLE "B" AT 4,; 

Name STYLE "U” AT 11,; 

"Rank:” STYLE "B" AT 40,; 

Rank FUNCTION "T" STYLE "U" AT 47,; 

"Date of Rank:" STYLE "B” AT 53,; 

Dor FUNCTION "T" STYLE "U" AT 68 

7 

7 

?? "Sex:" STYLE "B" AT 4,; 

Sex STYLE "U" AT 10,; 

"Date of Birth:" STYLE "B" AT 13,; 

Dob FUNCTION "T" STYLE "B" AT 29,; 
"Designator:" STYLE "B" AT 38,; 
Designator STYLE "U" AT 51,; 

"Year Group:" STYLE "BU" AT 58,; 
Year_group STYLE "U" AT 71 

7 

7 

?? "Subspecialties:" STYLE "B" AT 4,; 
Specialtyl STYLE "U" AT 23,; 

"/" STYLE "BU" ,; 

Specialty2 STYLE "U" ,; 

"/" STYLE "BU" ,; 

Specialty3 STYLE "U" ,; 

"Lineal Number:" STYLE "B" AT 47,; 
Lineal_nbr STYLE "U" AT 65 

7 

7 

?? "UIC:" STYLE "B" AT 4,; 

Uic FUNCTION "T" STYLE "U" AT 12,; 
"Command:" STYLE "B" AT 22,; 

Act_title FUNCTION "T" STYLE "B" AT 33,; 
"Source Code:" STYLE "B" AT 57,; 
Source_cod STYLE "U" AT 71 

7 

7 

?? "HOMEPORT:" STYLE "BU" AT 4,; 

Homeport FUNCTION "T" STYLE "U" AT 16,; 
"Date Reported:" STYLE "B" AT 30,; 
Date_rptd FUNCTION "T" STYLE "U" AT 49,; 
"PRD:" STYLE "B" AT 61,; 

Prd STYLE "U" AT 70 
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7 

?? "BSC:" STYLE "B” AT 4,; 

Bsc STYLE "U" AT 11,; 

"Billet Title:" STYLE "B" AT 21,; 

Billet_ttl STYLE "U" AT 37,; 

"Sea/Shore:" STYLE "B" AT 56,; 

Sea_shore FUNCTION "T" STYLE "B" AT 69 

7 

7 

• 

* • r 

tl -- _ 

- II • 

+ " ^="; 

STYLE "U" AT 0 

7 

7 

7 

7 

RETURN 

* EOF: Detail 

PROCEDURE Pgfoot 
PRIVATE _box 

gl_widow=.F. && disable widow checking 

EJECT PAGE 

*— is the page number greater than the ending page 
IF _pageno > _pepage 
GOTO BOTTOM 
SKIP 

gn_level=0 

ENDIF 

RETURN 

* EOF: Pgfoot 


*— Process page break when PLAIN option is used. 

PROCEDURE Pgplain 

PRIVATE _box 

EJECT PAGE 

RETURN 

* EOF: Pgplain 

*— Reset dBASE environment prior to calling report 

PROCEDURE Reset 

SET SPACE &gc_space. 

SET TALK &gc_talk. 

ON ESCAPE 
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ON PAGE 
RETURN 
* EOP: Reset 


* Program.: SPECIALT.FRG 

* Date.; 9-10-90 

* 

* Notes: 

* - 

* Prior to running this procedure with the DO command 

* it is necessary use LOCATE because the CONTINUE 

* statement is in the main loop. 

* 

*— Parameters 

PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, 
gc_extra 

** The first three parameters are of type Logical. 

** The fourth parameter is a string. The fifth is extra. 
PRIVATE _peject, _wrap 

*— Test for no records found 
IF EOF() .OR. .NOT. FOUND() 

RETURN 

ENDIF 

*— turn word wrap mode off 
_wrap=.F. 

IF _plength <1+1+2 
SET DEVICE TO SCREEN 

DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE 
ACTIVATE WINDOW gw_report 

@0,1 SAY "Increase the page length for this report." 

@ 2,1 SAY "Press any key ..." 
x=INKEY(0) 

DEACTIVATE WINDOW gw_report 
RELEASE WINDOW gw_report 
RETURN 
ENDIF 

_plineno=0 && set lines to zero 

*— NOEJECT parameter 
IF gl_noeject 

IF _peject="BEFORE" 

_peject="NONE" 
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ENDIF 

IF _peject="BOTH" 
_peject="AFTER" 
ENDIF 
ENDIF 


*— Set-up environment 
ON ESCAPE DO Prnabort 
IF SET("TALK")="ON" 

SET TALK OFF 
gc_talk="ON" 

ELSE 

gc_talk="OFF" 

ENDIF 


gc_space=SET("SPACE") 
SET SPACE OFF 


gc_time=TIME() 
gd_date=DATE() 
gl_fandl=.F. 
gl_prntflg=.T. 
gl_widow=.T. 
gn_length=LEN(gc_he 
gn_level=2 
gn_page=_pageno 
gn_pspace=_pspacing 


&& system time for predefined field 
&& system date " " " " 

&& first and last page flag 
&& Continue printing flag 
&& flag for checking widow bands 
ading) && store length of the HEADING 
&& current band being processed 
&& grab current page number 
&& get current print spacing 


*— Set up procedure for page break 

gn_atline=_plength - 1 

ON PAGE AT LINE gn_,atline EJECT PAGE 

*— Print Report 

PRINTJOB 

IF gl_plain 

ON PAGE AT LINE gn_atline DO Pgplain 
ELSE 

ON PAGE AT LINE gn_atline DO Pgfoot 
ENDIF 


&& first physical page started 


DO Pghead 
gl_fandl=.T. 
DO Rintro 
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*— File Loop 

DO WHILE FOUND0 .AND. .NOT. EOF() .AND. gl_prntflg 
gn_level=0 
*— Detail lines 
IF gl_suininary 
DO Upd_Vars 
ELSE 

DO _Detail 

ENDIF 

gl_widow=.T. && enable widow checking 

CONTINUE 
ENDDO 

IF gl_prntflg 
ELSE 

DO Reset 
RETURN 
ENDIF 

ON PAGE 

ENDPRINTJOB 

DO Reset 
RETURN 

* EOP: SPECIALT.FRG 

*— Update summary fields and/or calculated fields. 

PROCEDURE Upd_Vars 
RETURN 

* EOP: Upd_Vars 

*— Set flag to get out of DO WHILE loop when escape is 
pressed. 

PROCEDURE Prnabort 
gl_prntflg=.F. 

RETURN 

* EOP: Prnabort 
PROCEDURE Pghead 

*— Print HEADING parameter ie. REPORT FORM <name> HEADING 
<expC> 

IF .NOT. gl_plain .AND. gn_length > 0 

?? gc_heading FUNCTION "I;V"+LTRIM(STR(_rmargin-_lmargin)) 

7 

ENDIF 
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RETURN 

* EOF: Pghead 
PROCEDURE Rintro 

?? ''SUBSPECIALTY CODED' OFFICERS" AT 25 

7 

7 

7 

?? "SUBSPECIALTIES" STYLE "BU" AT 1,; 

"NAME" STYLE "BU" AT 31,; 

"RANK" STYLE "BU" AT 47,; 

"BSC" STYLE "BU" AT 54,; 

"BILLET TITLE" STYLE "BU" AT 61,; 

"UIC" STYLE "BU" AT 76 

7 

RETURN 

* EOP: Rintro 

PROCEDURE _Detail 

IF 2 * gn_pspace < gn_atline - 1 

IF gl_widow .AND. _plineno+2 * gn_pspace > gn_atline + 1 
EJECT PAGE 
ENDIF 
ENDIF 

DO Upd_Vars 

7 

?? Specialtyl FUNCTION "T" AT 0,; 

"/" STYLE "B" ,; 

Specialty2 FUNCTION "T" STYLE "B" ,; 

"/" STYLE "B" ,; 

Specialty! FUNCTION "T" STYLE "B" ,; 

Name FUNCTION "T" STYLE "B" AT 19,; 

Rank FUNCTION "T" STYLE "B" AT 47,; 

Bsc2 FUNCTION "T" STYLE "B" AT 53,; 

Billet_ttl FUNCTION "T" STYLE "B" AT 60,; 

Uic FUNCTION "T" STYLE "B" AT 75 

7 

RETURN 

* EOP: Detail 


PROCEDURE Pgfoot 
PRIVATE _box 

gl_widow=.F. && disable widow checking 

EJECT PAGE 

*— is the page number greater than the ending page 
IF _pageno > _pepage 
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GOTO BOTTOM 
SKIP 

gn_level=0 

ENDIF 

IF .NOT. gl_plain .AND. gl_fandl 
_pspacing=gn_pspace 
DO Pghead 
ENDIF 
RETURN 

* EOP: Pgfoot 

*— Process page break when PLAIN option is used. 

PROCEDURE Pgplain 

PRIVATE _box 

EJECT PAGE 

RETURN 

* EOP: Pgplain 

*— Reset dBASE environment prior to calling report 

PROCEDURE Reset 

SET SPACE &gc_space. 

SET TALK &gc_talk. 

ON ESCAPE 
ON PAGE 
RETURN 

* EOP: Reset 
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